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FACILITY: 
VAX/VMS TERMINAL DRIVER 
ABSTRACT: 
THIS MODULE CONTAINS ROUTINES COMMON TO ALL TERMINAL DRIVER FUNCTIONS. 
AUTHOR: 
R.HEINEN 11-AUG-1976 
Revision history: 
v04-002 piRcogt Michae Rosenblum 55-Nov-1984 
riepr code added nV 41504 t is no longer necessary 
x problem with disconnec 8. disconnection could 
happen when a read completion was waiting on the queue, 
required a fork queue length check. 


v04-001 M1R1100 Michael I. Rosenblum 7-Sep-1984 
Add code to catch tired hangup ast's. 


V03-057 JLV0394 Jake VanNoy 13-AUG-1984 
ynenge exit path in read error such that condition code is 
s correctly on return to port driver. 


v03-056 MIRO0460 Michael I. Rosenblum 07-Aug-1984 
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Fix bug described in QAR 915 that points out a condition 
Where the DMF hardware XON/XOFF handling get's out of synch 
with the terminal driver's reconing. 


V03-055 MIRO45S MICHAEL I. ROSENBLUM 20-JUN-1984 
Add check to catch late rtimout ast's. 
make detach cause a hangup if the Line is set as such. 


V03-054 RKSO0054 aren SPITZ 10-APR-1984 
Show Physical terminal UCB redirected when associated 
with logical TT UCB. Remove characteristics logic on rebind 
as it is done in the connect startio 1/0 action code. 


v03-053 MIRO390 Michael I. Rosenblum 04-Apr-1984 
Return the offset when a readverify read terminates 
Due to timeout. Terminate a Read verify read 
sare restarted by another io also return the correct 
offset. 


v03-052 MIRO370 Michael I. Rosenblum 20-Mar-1984 
Remove local definition of TTY$V_ST_CTSLOw. 


v03-051 RKS0051 RICK SPITZ 15=MAR-1984 


Cleanup modem disconnect routines and 
add login timeout logic to modem processing. 
Cleanup routine headers. 


v03-050 RKS0050 RICK SPITZ 05-MAR-1984 
Enhance virtual terminal timeout code to delete 
a virtual terminal when specified time period expires. 


v03-048 pineete Michael Rosenblum 09-F eb-1984 
x bugs. 
Clear Breakthru Gi esses on last deassign. 
Maintnance functions shold not always return abort. 
Add entry point to Transition to not check modem in 
Devdepend so that the modem can be shutdown when 
modem is turned off. 
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v03-047 ™HB0100 Mark H, Bramhall 1-F eb-1984 
Add the setting/res tting of DEVSM_DET in DEVCHAR2 during 
LUCB unlinks/(re-) links. 

v03-046 M1RO200 Michael i. Rosenblum 15-Oct-1983 
make calls to EXESF 


er call TTYSSYNCH to allow the terminai 
driver fo provide differ [naU routine to 8 methods. 


en 
nput IPL to the RT 


remove restriction that modem state table routines must 
be forward references. 


1 Change routine to allow the 

1 class driver to provide it’s own synchronization. 

1 v03-045 MIROO82 Michaei 1. Rosenblum 19-Aug-1983 
' Add argument in RO to the PORT DISCONNECT routine. 

! v03-044 MIR1080 Michael I. Rosenblum 11-Aug-1983 
1 
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v03-043 MIROO80 Michael I. Rosenblum 28-Jul-1983 
Reposition the routines in the module. 
v03-042 BIROOTO Michael I. Rosenblum 13-Jul-1983 


Re-write the #2 e shes handles modem timers to allow 
any number of Lines 9" modem control per controler. 
Make the Gee i routine turn around reads with timers 
rather than requeveing them. 
change setup ucb to not setup the ucb if there are 
channels assigned. 
sever transition when called from the ports to turn 

@ gat to INIT with channels assigned to a SHUTDOWN. 
: s will blow the processes away when a power fail 
appens. 


VO3-041 MIROOS1 Michael I. Rosenblum 23-Jun-1983 
Add TTYSNOTIFY persion: Cause break on NON-autobaud terminals 
to login. Remove unnecessary jsb's and replace with bsbw's. 


v03-040 RKS0040 RICK SPITZ 8-JUN-1983 
ADD SUPPORT FOR ay by DETACHED TERMINAL UCB AND Logic 
TO LINK_AND UNLINK PiMr AND PHYSICAL UCBs. 
RESTRUCTURE CANCEL 1/0 CODE TO BE MORE  wODUL AR. 
MOVE UCBSV_TT_HANGUP INTO LUCE (EXCEPT FOR CANCEL RESET SPECIAL CASE 


REMOVE STOP BROADCASTS CODE SINCE THEY ARE NOW BREAKTHRU WRITES 


V03-039 MIROOSO Michael I. Rosenblum 11-May-1983 
Remove code hat specail cases broadcasts. 
Remove TTYS$STO 


V03-038 MIRO041 Michael I. Rosenblum 29-Apr-1983 
Add code to allow autobaud to work with parity, autoparity 
for qven parity checking. Change autobaud code to 
require a readable <CR> before invoking LOGINOUT. 


V03-037 MIROO32 Michael I. Rosenblum 05-Apr-1983 
Change control character echoing representation. 


V03-036 M1IROO31 Michael I. Rosenblum Otoser~1985 
add code to disable the transmiting of characters with 
parity errors to the user. 


v03-035 RKS0035 RICK SPITZ 14-MAR-1983 
ADD SUPPORT FOR LOGICAL UCB 
Rosen 14-Mar-1983 


v03-934 njneoes heel I 
problem with” iene al string. ailects and origional 
cursor position 


v03-033 MIRO026 Michael I. Rosenblum 01-Mar-1983 
Clear out the size of the recall buffer when creating 
the typeahead buffer. 


V03-032 MI1RO024 Michael I. Rosenblum 28-Jan-1983 
Change coce to reflect the new read buffer. 
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V03-031 MIROO22 Michael I. Rosenblum 18-Jan-1983 
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Move common code from port drivers into class jacket routines. 
Change cererenees to bce ERTCNT to UCBSW_TT_UNITBIT to 
allow more maintainability. 


M1ROO17 Michael I. Rosenblum 05-Jan-1983 
Move common powerfail code into this module, and change 

the ATTENTION rout ne to use this common code. Add 
TTYSPOWERACTION routine as a class survice to the port 
drivers that will setup everything for postive action 

when a powerfail occurs. 


MiROO1S Michaei I. Rosenblum 20-Dec-1982 
Change fork dispatching code to use state dispatch 
Class onary vectors: 

CLASS_FORK = Schedules a fork interupt for the 


ort driver 
CLASS_DISCONNECT = Performs cleanup then delivers 
DCL's hangup ast. 
Add class survice: 
LASS_MODEM_DIS = Forces modem shutdown transision 
Make CLASS_DISCONNECT fork to FIP 
Add class Jacket routines for all port functions. 


MIROOT4 Micnael I. Rosenblum 17-Dec-1982 
Add CLASS_XON and CLASS_XOFF to remove some of the 
code duplicated in all Of the port drivers. 


M1ROO13 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 

MIROO11 Michael I. Rosenblum 18-Nov-1982 
Remove HOLDSCREEN code. 

change RESTARTIO to use new EDITREAD state and the 

new MULTIECHO functionality. 

M!ROO10 Michael I Rosenblum 9-Nov-1982 


Moved the count of characters in the typeahead buffer 
from the UCB into the typeahead structure. 


RKS0024 RICK SPITZ 8-NOV-1982 
PREVENT PURGE TYPEAHEAD ROUTINE FROM DESTROYING CONTENTS 
OF R4 (ADDRESS OF TYPEAHAED STRUCTURE) 

ars0oes RICK SPITZ 04-OCT-1982 
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; ; -SBTTL TTYSABORT_IO = ABORT 1/0 
78 ; TTYSABORT_10 = Cancel 1/0 as a result of ABORT out-of-band. 
5 > INPUTS: 
§ H Re = STATE VECTOR 
8 : R35 = UCB 
7? i-- 
0 
1 TTYSABORT_I0:: 
0368 $ BSBW TTYSPURGE_AHEAD 3; PURGE THE TYPEAHEAD 
51 ggcc g3 5 MOVAB ures, tT. WFLINK(RS),R1 ; Get start of write queue. 
1 6 amis MOVL R3 3 Copy it to check for end. 
53 g 4 , MOVL TTYSL_WB_FLINK(R3),R3 ; Get next entry. 
51 8 CMPL R3,R1 3; At end of queue? 
1 90 BEQL 50 : Yes. Branch forward. 
54 244A 91 MOVL TTYSL_WB_IRP(R3) ,R4 3; Get associated IRP address. 
Fe 38 BEQL 30$ 3 If ne IRP, it's a broadcast, 
.] 3; leave it {n the queue. 
53 . A3 94 MOVL ve, WB_BLINK(R3),R3 =; Get verthe. | aghwore Link. 
54 0 B3 95 EMQUE a@TTYSC_WB FLINK(R3S ,R4 : Remove the 
FFDC" 36 BSBW TYSWRITEPOST 3; Queue i ig & gonpletion 
—5 4 RB 3; Try My next li 
99 50S: 3; Stop the current I/0s 
BY IF NOT Stale - 3; Branch forward if no seed is 
READ ,60$ ; currently in progress. 
if CLR_STA » &- Banese> ; Clear escape bits. 
53 78 AS 4 VL BSL_SVAPTE(RS) ,R3 ; GET THE PACKET ADDRESS 
54 58 AS 5 MOVL UCBSL he »,R4 3; Get address of IRP. 
$ IF _STATE EOL,55$ ; IF END OF CINE THEN ALREADY Fenac ree 
3} 3A AG QZ2BW IRPSL_MEDIA+2(R4) ,R1 3; GET THE LENGTH OF we TERMINA 
Cad. 51 8 vee uv Ri, TTYS RB_TXTOFF(R3) ; AND FIXUP THE COUN 
38 A4 10 " — CLRL = ARPSL_MEDIA(R4) : Clear terminators. 
FFB6° ! BSBwW TTYSREADONE : Complete the read. 
ig 60$: ; Check for a write to complete. 
OODC C5 13 ity SW_TT_MULTILEN(RS) , rest for ne non-zero 
3 ero 
16 SET_STATE MULTI ; Set mult 06 ho here because 
1 3; READ 4 yg Be wilt clear it if called 
3 65$: IF NOT_STATE = 3 Branch erverd if no write is 
1 WRITE ,70$ ; in progres 
eee? 9 BSBW TTYSABORT 3; Abort any corvent output activity 
OF BSBW TTYSRESUME ; Restart outpu 
53 009" C § MOVL UCBSL_TT_WRT if (RS). R3 ; Get address of write packet. 
4 A MOVW UCBSW"-BOFF (R 3 Put ,stetus code in the 
28 A 4 TTY$W7WB STATUS(RS) ; pack 
FF9S® 2 BStw TTYSWR I TEDON : cops the 1/0. 
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-SBTTL TTYSAUTOBAUD - SENSE AND SET BAUD RATE 


+e 
TTYSAUTOBAUD = Sense and Set baud rate 
Functional description: 


This routine is called from the TTYCHARI module when a job controller 
character has been Cotected. It eqoynes gre character typed was a carriage 
return, The default sampling speed is 9600. If the terminal is set at baud 
rates 1200 - » the algorithm will detect the proper baud rate on one 
character and set to it. If the baud rate is other than that, READERROR wilt 
detect a framing error ang set the sampling rate to 600. A second carriage 
return then sampled at 60 youd can map the 50-600 baud range. Using the 9600 
or 600 baud fab e the algorithm matches the character read to a specific baud 
rate. No split speed detection is allowed. 


Inputs: 


IPL = Device IPL 
R5 = UCB address 


Outputs: 


Baud rate can change. 

R3 will be changed to <CR>, or a space 
R4 is destroyed. 

RS is preserved. 


Tere eee reer ere re rere rere rererirerere rire rere ere 
i) > 
] 


TTYSAUTOBAUD: : 


CMPL UCBSL_TT_RDUE (RS) ,- 
G EXESGL_ABSTIM ; compare to current 
BEQL 0$ 3; branch if too soon 
BBCC #7,R3,108 ; Clear high order bit 
3; check baud rate 
10$: MOVAB TTY$AB_9600,R4 ; set 9600 baud table 
CMPB #TTS$C_BAUD_9600,UCBSW_TT_SPEED(RS) ; speed at 9600 ? 
BEQL 208 3; branch if yes 
MOVAB TTY$AB_600,R4 ; set 600 baud table 


CMPB #TT$C_BAUD_600,UCBSW_TT_SPEED(RS) ; speed at 600 ? 
208 3 if no 


BEQL branch 

MOVZBL #TT$C_BAUD_9600,R4 3; Wrong baud baud rate for samplin 

Baae 361 SPEED $ set to 3250 — 
: Ex 


3 now test character 
208: CMPB R3,(R4)+ ; input same as table ? 


13 
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so 
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ranch to set speed if yes 


ays - neo 

§u2b82 TT SET 

A 5 BEQL 

A § INCL R4 ; incremen past, aud rate 

A TSTB (R4) ; end of | 

A 3 BGEQ gps ; loop if ha 9 

vi" BRB 3; no match 

AC o ; Set speed, zero speed+! to indicate not split speed 


rminal driver atecel lla 
AUTOBAUD = SENSE AND 


— "AN 
OURO 
--oo~ 


¢ 50s: MOVZBL #TTYSC_BLANK,R3 ; Invalidate character 


AC 
54 4 AC 38 30$: MOVZBW (R4),R4 ; get baud rate 
8 1 at 34 BSBB = SET_SPEED : Set Line speed 
64 AS 01 AA 9 BICW gucese TIM, UCBSW_STS(RS) ; Fleer timeout expected 
9 CLR_STATE <AUTOP> Clear AUTOBAUD pending 
53 OD 9A Q MOVZBL pttY C_CR 3 Set “corriose return as input 
00000000'GF 00 9 L G*EXESGL 
0080 C5 0 C 0 UCBSL_TT “RDUE (RS) ; Set time this path taken 
O¢ 40$: 
4: No appropriate mapping was found, make sure that character isn't a terminator 


SET_SPEED: 
OOF4 (5 54 MOVZ7ZBW R4,UCBSW_TT_SPEED(RS) ; set speed, zero out speed+! 
O9A4 BSBW TYSSET_CINE ; Set Line speed 


RSB ; Return 


SPELL LLL EEE 
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ti8 -SBTTL TTYSCANCELIO = CANCEL 1/0 ON TERMINAL 

416 ;4¢ 

ci? ; TTYSCANCELIO = CANCEL 1/0, DEASSIGN, AND DEALLOCATE 

‘is ; FUNCTIONAL DESCRIPTION: 

2 1 : THIS ROUTINE IS ENTERED TO STOP CURRENT 1/0 ON A TERMINAL UNIT. 

4 j : THE tte 7 hh Seg READ 4 nite 1/0 IS CANCELED ALONG WITH 
424 ; A FLUSH OF CON Ha AST R REQUESTS 

425 ; if agree aber IS D pone ON A UNIT WITH A ZERO REFERENCE COUNT, in CONTROL 
& § 3 FLUSHED. THE VPEAMEAD BUFTER IS DEALLOCATED AND THE UN 

? 3 Is" initiaciy D FOR THE NEXT USER. 

4 § : This routine always clears the control-0 state bit. and also clears 
? ? ; the controi-S state bit if the UCB reference count is zero. 

4 ; ; INPUTS: 

434 : R2 = NEGATIVE OF THE CHANNEL NUMB 

435 ; R5 = CURRENT 1/0 PACKET ADERESS 

4 $ $ R4 = PCB OF ei PROCESS 

2 : RS = UCB ADDRESS 

4 3 : GUTPUTS: 

440 ; 

441 ; R4,R5 ARE PRESERVED 

iif 

444 TTYSCANCELIO:: 3 ee TTY USAGE 

445 MOVL R2,R3 ; SAVE THE CHANNEL NUMBER 

rr BSBW TTYSLOCK ; SETUP IPL AND REGISTERS 

44 PUSHR #*A<R4,RO,R7 ROD 

44 MOVL ft ; COPY CHANNEL a 

45 MOVL  UCBSL_IRP(RS).R3 : GET THE CURRENT IRP 

4 MOVL ; SAVE LOGICAL UCB ADDRESS 

4 : MOVL yeBsi_ TL_PHYUCB(RS),RS : GET THE PHYSICAL UCB 

gj BNEQ ; CHECK AGAIN AFTER LOCKING THE DAT BASE 
454 BRe CANCEL_DETACH 

2 5 5$: PUSHAB CANCEL” DONE : EXIT TO HERE WHEN FINISHED 
2 : Empty the write queue. 

é 

460 MOVAB UEOSL TT UPLINK (RS) At ; Get first buffer in queue. 
ree MOVL R1R :; Copy buffer address. 

£88 10$ ; Empty wrise ove. 

464 MOVL TIYSt WB_FLINK(R7) ,R7 ; Get next bu 

465 CMPL R7.R 3 Is this the yo “of queue? 
r+] BEQL 40 ; Yes. Branch past | 

4 ROVL TTYSL_WB_IRP(R7) ,RO ; Get address of associated IRP. 
46 BEQL 108 : Branch if broadcast buffer 
$8 2 (Leave these in queue). 

470 BBS #@IRPSV_VIRTUAL ,- ; Don't dequeue virtual i/0 
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RMINAL EP-1984 
STS(R ),10$ 
CMPL Sib )ie 
ptt -p D(R4)* 
BNEQ 
CMP eu’ CHAN(RO) 
BNEQ 
BBC #IRPS oft h8 5 
1tPSuS $(ROS 208 

BICW NC 


#IRPSA F 
IRPSW_ STS(RO) 


MOVZWL #SS$_CANCEL,= 


ucese_ BOFF (RS) 
Tvs w8 BLINK (R7 
TYSC UB FLINK 


BSBW TIvSvATTEPOST 


BRB 108 


: See if a read is in progress. Cancel it 
: ; canceling process. 


#UCBSV_BSY 
UCB Su. STS(R9) , 508 
CMPL tat the “PID(R4). IKPSL ~-PID(R3); PID MATCH? 
cn IRP$W_CHAN(R3) 
IF_NOT_STATE - 


AD, 
CLR_STATE - 


<ESC BADES(> 
PUSHR <h4> 
MOVL ucB L_IRP(RS) ,R4 
CLRL Re L xRepia ACR4) 
MOVZWL 

casa Reet tas) 
BSBY vi EADONE 


POPR @*A<R4> 


IF _NOT_STAT 
MOVL UCB 
move = soTTY 
BEQL 608 
CMPL) ORP 


Remove buffer 
; QUEUE. If FOR COMPLE ION 


: CHANN 
; Branch if no match 
: Proceed if this is not a read. 


1:85:42 EMRUR.BussRcSttysue.man:1 


acket. 
ompare packet’ 3? st with 
current process 
No match. Go to fn “packet. 
pees the channel matc 
No. Go to next packet. 
Branch on direct 1/0. 


Otherwise gteer function of 
buffered [/0 


Set up 1/0 completion. 
Return CANCEL error status 
code. 
Save R4 
Get bechwerd 7. 

ueue. 


Restore 
Get next buffer in queue. 


if it was initiated by the 


: Check for read in progress. 


; Branch if no read in progress. 


ranch if no match. 
EL MATCH? 


; Clear escape bits. 
; Save the PCB address. 


Get address of IRP. 


; Clear terminators. 
; Set up abort status code. 


Complete the read. 


Remember to restore register. 
Restore PCB address. 


Check for a write in progress. 
If no write request is in 

progress. branch 

of write buffer. 

Get assoc ated RP, 

no irp then don t cancel 

See if packet $s bib matches 

process’ PID. 
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TTYSCANCELIO = CANCEL I/0 ON TERMINA oo ann 13 15:85:33 YT TORVR. BUGSRCITTYSUB.MAR; 1 “¥ (3) 
1E 1 BNEQ 60$ 3; Bran } if no match. 
28 AO 5 ; CMPW Re IRPSW_CHAN(RO) 3 zee f channels match. 
1 ; BNEQ é $ : No. Don't stop this write. 
089 SBW YYSARORT ; Abort any current jovteut activity 
sf C MOVZWL #SS$_ABORT ; Set abort status int 
7C A UCBS@_BOFF (RS) ; UCB status word. 
1 PUSHR #*M<R&> 3 ice the PCB address. 
53 0004 C¢ i) MOVL UCBSL_TT Love Teye (RS). oR3 ; Get address of write packet. 
7C A 8 MOVW UCB$W"-B : ~~ ,oeetue code in the 
28 A TTY$SW~ BB PSTATUS&RS) : pack 
FE61" 30 BSBW TYySy TEDO : pataie the 1/0. 
10 BA POPR #*AcrR 3; Restore PCB address. 
3 PROCESS CONTROL AND OUT OF BAND ASTS 
002D 30 60$: BSBW CANCEL_AST 3; CANCEL OUTSTANDING ASTS 


: SEE IF THIS 1S THE LAST DEASSIGN 


: TSTW UCBSW_REFC(R9) ; REF COUNT 0? 


5C AD OB 
1 BNEQ 


10 


64 A9 01 BA BICB #UCBSM_TIM,UCBSW_STS(R9); RESET HANGUP TIMER IN LUCB 


QVQOCOCSCNOWWWWWDD YS YS yy yryrrrrrrrr? Pr Pr POOO0OO0OMMMccc 
OS DP VMUMNIPIM DOCU SF OVO SS SF TNO B NSINVIOMO ON 
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3C BBSC #TTYS$V_SX_RECONNECT,- 
12 0088 ¢5 UCBSQ_TT_STATE(RS), 50$ 
0079 0 BSBW CANCEL_MODEM ; SIGNAL HANGUP IF NEEDED 
OO9E 0 658 BSBW CANCEL” RESET 3; RESET PHYSICAL UCB 
52 00B8 CS. DE ; OVAL _UCBSQ_TT_STATE(RS),R2 ; RESTORE STATE ADDRESS 
CLR_STAT Zz > 3; Clear control-0 state always. 
FE3B" 31 BRW” TTYSSTARTOUTPUT : RESTART ANY STOPPED SuTPUT 
70S: 
54 DD PUSHL R4 3 ep ely R4 
54 9 0 MOVL att ysy FD_LINK,R4 : SCHEDULE LINK FORK FUNCTION 

045€ BSBW TYSCR RE_FORK 

54 BED POPL 

0 RSB 
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AS OD NOME WN 0 CONAN EA O OONOAUSE 


CANCEL_AST: 
> RELEASE THE CONTROL C AST BLOCKS 
MOVAB UCBSL_TL_CTRLC(R9) .R7 
CLR R 
G*COMSF LUSHATINS 
OUT OF BAND ASTS 
UCB$L_TL_BANDQUE (R9) ,R7 
BSL TL~OUTBAND(R9)_R2 : 
G*COMSFLOSHCTALS : 
> FLUSH 
RB, #CANSC_DASSGN 
UCBSL_TL_CTRLY(R9) .R7 


G*COMSFLUSHAT INS 
UCBSI._TL_CTLPID(RS) 


:31 VAX/VMS Macro v04-00 P 
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CANCEL CONTROL AND OUT OF BAND ASTS 
INPUTS: RO = LUCB 


ADDRESS THE CONTROL C ENABLE LIST 
SPECIFY NULL MASK 
FLUSH THE LIST 


; ADDRESS THE OUT OF BAND LIST 


GET CURRENT SUMMARY MASK 
DO IT 


IS THIS A DEASSIGN? 


NO, 
ADDRESS LIST He FOR CONTROL Y ENABLE 
ty aye 
FLUSH LIST 
RESET CONTROLLING PID 


C 8 
TTYSUB = Terminal driver miscellaneous subrouti at hs 17: 36:31 AX/VMS Macro v04-00 Page 1 
v04-002 TTYSCANCELIO = CANCEL 1/0 ON TERMINAL SEP-1984 17: TTDRVR.BUGSRCIJTTYSUB.MAR; 1 ( 
? 
88S 
5 610; PROCESS CANCEL FOR DETACHED LOGICAL UCB. 
5 6611; THIS ROUTINE CANCELS ANY INTERNAL STRUCTURES FOR 
$6 ; A DETACHED LUCB. 
5 614 ; INPUTS: RO = LUCB 
615 ; 
5 218 
: 617 CANCEL_DETACH: 
ae 8 013 MOVL 9,R5 RESTORE LOGICAL UCB ADDRESS 
FFC 9 8 8} BSBW cancel AST PROCESS OUTSTANDING CONTROL ASTS 
5C 43 83 ° Y ey ce W_REFC(RS) CHECK FOR LAST DEASSIGN 
64 Ad 4 BA 16 6 § BICB #UCBSM_TIM,UCB$W_STS(R9); RESET HANGUP TIMER IN ypuce 
D4 14 6 CLRL UCB$L_BUETIM(R9) ; RESET HANGUP TIMEOUT VALUE IN LUCB 
50 0084 cs 0 17 624 MOVL YEgSL_POTIAS) RO ; CHECK FOR PENDING REBIND FUNCTION 
1 8 1C = 625 BEQL $ 3 NONE 
0084 C0 D4 45 6 § CLRL UCBSL rey (ee ; SIGNAL THAT THIS UCB IS DELETED 
0200 BA 0 627 10$ POPR #*M<RZ,R6,R7, RID ; Restore registers. 
05 0 8 628 RSB ; RETURN 
8S 629 
0227 630 


8 
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“SEP-19 TDRVR.BUGSRCJTTYSUB.MAR; 1 (11) 
6 
638 
634 CANCEL_DONE: 
635 MOVL R9,RS ; RESTORE LOGICAL UCB ADDRESS 
6 § POPR #*M<R4,R6O,R7,RO> ; Restore registers. 
6 RSB ; RETURN 
638 
639 
640 
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MINAL “SEP=1984 TTDRVR.BUGSRCJTTYSUB.MAR; 1 (12) 
; FINAL MODEM PROCESSING FOR LAST DEASSIGN 
INPUTS: RS = PUCB 
CANCEL MODEM: 


i CHECK FOR HANGUP 
BBC erteev HANGUP 


UCBSL “BEVDEPN62(RS) 158 ; BRANCH IF LOGOUT/NOHANGUP 
BSBW © CLASS“MODEM_D RESET SPEED AND UCB 


FOR NEED TO REACTIVATE MODEM PROCESSING 


eeeee 
o 
x 
m 
o 
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PEA AAASAOAOAAOPOAAOOAA SD 


on 
DDD PPPs EE 


=O CONAN E WIN 9 ODO UP 


BBS #TTSV_MODEM,UCBSL_DEVDEPEND ( (RD) «$08 ee IS MODEM 


66 BBC #TTSV_MODEM,UCBS$L_ i T_DECHAR(RS) ,25$ ; 

664 MOVZBL #MODEMSC_INIT,R1 ; NEED TO RESTART MODEM 
665 BSBW TRANSITION 

006 

66 

668 208 

669 BBS #TTSV_MODEM, UCBSL_TT_DECHAR(R5) ,25$ 3 NO CHANGE 

670 MOVZBL #MODEMS$C_SHUTDWN,R1 ; SHIT DOWN MODEM 
671 BSBW TRANSITION 

ere 25$ 

67 RSB 

674 


vay SHe 


68 AS 08 
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RESET PHYSICAL UCB AND MAKE IT AVAILABLE FOR FUTURE USE 


Page i) 


IO 


ee 


INPUTS: RS = PUCB 
ANCEL_RESET: 
BIcw 


CWP oe Se Ge Se Sete 


ESR FT OO AOE IVETE TNs nezet HANGUP FLAG 
NOTE THIS IS CORRECTLY REFERENCED 
; BUT IS NORMALLY MANIPULATED IN TH 


DELETE TYPEAHEAD BUFFER 
poye yest. TT_TYPAHD(RS),RO ; 
UCBSL_TT TYPAHD(RS) 


JSB G*CONSDR QDEALMEM 
BSBW TTYSPURGE _AHEAD ; 


GET ADDRESS OF TYPE AHEAD 
NONE 


DEALLOCATE TYPE AHEAD BUFFER 
PURGE TYPE AHEAD BUFFER 


_ 
Oo 
wn 


; SET UP DISCONNECT SIGNAL TYPE FOR PORT 


WOOOO0O OOO OCW O0 0D C9 C9 CD GDCGD CD 


COONAN WI O ODN UE Wis" O Ooo 
eee 


SSS NNTP AAAS AOS AAAS A AOS SAASOOSA AOS 


MOVL  #1,=(SP) : INDICATE NOHANGUP 

0 BBC ar tasy 

1 PY SEVDEPND2(RS) , 15$ ; BRANCH IF LOGOUT/NOHANGUP 

: a, CLRL yeast > ASSUME HANGUP 

4 a : OF LAST DEASSIGN 

6 ? RESTORE PERM CHARACTERISTICS 

§ CLRQ  ~—sUCB$Q_TL BRK THRUCRS) ; RESET ALL THE BREAKTHRU CLASSES 

10 BSBW «=e: TT YSSETUP_U ; SETUP UCB FIELDS, AND RESET PUCB 
i MOVL § G*EXESGL_ABSTIM,- 
1 UCB$L_TTRDUE (RS) : SET TIME TO “TURN OFF'’ AUTOBAUD 

1% BsBw «=s TTYSSET_CINE : RESET SPEED AND UCB 
1 = BBCC  #UCBSV_JOB,UCB$W_DEVSTS(R5),30$; RESET JOB CONTROLLER OWNERSHIP BIT 
18 MOVW UCBSW_TT_PRTCTL(RS),-(SP); SAVE THE PORT CONTROL WORD 

1 BICW  #TTYSA_PC_XOFENA,UCBSW_TT PRTCTL(R5); MAKE SURE THAT THE CONTROL 
0 : AND THE DRIVER AGREE ON XOFF SETTING 

BSBw OStséT' TVS UME CONTINUE ANY PORT CUTPUT 

; mOVW (SP ete W_TT waren cast 

4 MOVAL _UCBSQ_TT_STATE(RS).R2  ; RESTORE STATE ADDRESS 

5 CLR_STATE 2CTRLO> ; Clear control-0 state always. 

§ POPL RO ; GET HANGUP INFO AS ARGUMENT TO 

8 BsBW TTYSDISCONNECT : INFORM THE PO 
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TTYSSETUP_READ:: 
MOVL 


a a ha aaa a al a) al al al alah al al al al eal ai ai alealval val alealeareaieaseareaieal 


TT 
5$ 
TT 
5$: BBC # 
IR 
uc 
aT 


, : Set up read with time out if necessary. 


MMMM MMMMMOOVOMOOOOoow 
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-SBTTL TTYSSETUP_READ = Set up UCB and states for a read 


p++ 
; TTYSSETUP_READ = get ready to initiate a read operation 
: Functional description: 
This routine copies IRP fields into the UCB, disables mailvox, 
sets up a timed-out read, cancels control-0, purges the type 
ahead buffer, etc. as instructed by the IRP. 
Tots routine is called by both TTYS$STARTIO to start a read, and 
TTYSRESTARTIG to restart a read after a powerfailure or after 
a write completes. 
Inputs: 
Re - address of the UCB state bits 
u - address of the IRP 
RS - address of the UCB 
Outputs: 
RO, R2, R3, and R5 must be preserved. 


R1,R4 destroyed. 


P »,R4 3 Get buffered block address. 
CURSOR (RS) , = 3 Save the current cursor 


IRPSL_SV 
MOVW UCBSW_TT 
TTYS$SW_RB 3 position. 


> Check to see if mailbox should be disabled. 


YSA_RB_PRM(R4) ,ATTYSC_CR; IS THE FIRST CHARACTER A <CR> 
: HEN LEAVE CPZORG HERE 

Y$W_RB_CPZORG(R4) ; ELSE ZERO THE CURSOR POSITION 

Oey DS RaL Ks ; Branch forward if disable 

PSW_FUNC(RS),10$ 3; mailbox not requested. 

BSL_TT LOGUCB(RS) ,R1 GET LUCB ADDRESS 

TSM~MBRDSABL ,UCBSL_DEVDEPEND (RS) 


BISL #TTSM_MBXDSABL ,UCBSL_DEVDEPEND(R1) 


ios: 


BBC o108V TIneG - ; Branch forward if read with 
IRPSW"FUNC(R3) , 308 ; timeout not requested. 

MOVL TTYSA_MAXTIME ,- ; Assume zero second timeout 
UCBSL“TT_RDUE (RS) ; (meaning just empty typeahead 
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= Set up UCB and states f /7-SEP-19 


MOVZWL 9 TTYSW_RB_TIMOS(R4) ,R4 


BEQL 208 
ADDLS = R4,G*EXESGL_ABSTIM,- 


UCBSL_TT_RDUE (RS) 


20S: 

BISW #UCBSM_TT_TIMO,=- 
UCBSW_BEVSTS(R5) 
: Always turn off control-0 state. 


CLR_STATE - 
<CTRLO> 


OWONAOUEWN—OOCOVNOusw mw—OOE® 


: Handle a readsync terminal. 


o 


BBC #TTS$V_READSYNC 


UCBSL~ 
IF_STATE - 

<TYPFUL ,EOL>, 408 
BSBW =: TTYSXON 


ot at ot a 
ONOUS WhO 


RSB 


§ 
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; buffer into read buffer). 

; Get number of seconds to wait 
; between each character. 

; Branch if none. 

; Calculate and store the due 


; time. 


; Set the "this is a read with 
; timeout" bit. 


; Always clear control-0 state. 


- ; Branch forward if terminal is 
DEVDEPEND(RS) ,40$ : 


not in readsync mode. 
If in EOL state, don't issue 


; an XON code. 
; Send XON 


; Return to caller. 
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a ~SBTTL TTYSNOTIFY = NOTIFY JOB CONTROLER OF LOGIN IF NECESSARY 
TTYSNOTIFY = NOTIFY THE JOB CONTROLER OF LOGIN PENDING IF NECESSARY 
FUCNTIONAL DESCRIPTION: 


$ THIS ROUTINE WILL VALIDATE A REQUEST TO NOTIFY THE JOB CONTROLLER 

+ OF A LOGIN REQUEST. IF THERE IS A TYPEAHEAD BUFFER, THE JOB CONTROLER 

; HAS WOT ALREADY BEEN NOTIFIED AND TERMINALS ARE ENABLED A FORK IS 

$ QUEVED TO PERFORM THE FUNCTION, 

$ INPUTS: 

: RS = PHYSICAL UCB ADDRESS 

+ OUTPUTS: 

; ALL REGISTERS SAVED 

TTYSNOTIFY:: 
PUSHL ; SAVE A SCRATCH REGISTER 
BBS #TTSV_NOTYPEAHD ,UCBSL_DEVDEPEND(R5),100$; IF SLAVED TERMINAL, IGNORE 
MOVL UCBSL“TT LOGucBiR ),RO ; GET LOGICAL UCB ADDRESS 
TST BSW_REFC(RO) + UNIT REF COUNT 0? 
BEQL : IF EQL THEN JOB CONTROLLER POSSIBILITY 
TSTL $L_AMB(RO) + USER ASSOCIATED MAILBOX? 
BEQL : IF EQL THEN NO 
BBS #TT$V_MBXDSABL ucest DEVDEPEND(RS),100$; BR IF NOT ENABLED 
BBS #yCBS0_TT_NOTIF .UCB Q_DEVSTS‘R5),100$; AR IF ALREADY NOTIFIED 
BRB 15$ ; CONTINUE IN COMMON 

10$: BBS #UCBSV_JOB,UCBSw_DEVSTS(RS),100$; IF ALREADY NOTIFIED THEN GO 
BBS #DEVSV"SPL.UCBSL DEVCHAR(R5S ,100$;1GNORE IF DEVICE IS SPOOLED 
MOVAB G*OPAS$OCBO.RO ; ADDRESS CONSOLE UCB 
CMPL ~—s- RO, RS : IS THIS THE CONSOLE 
BEQLU IF EQL THEN SKIP TERMINAL ENABLED TEST 
TSTW  G*SYSSGL_JOBCTLMB+UCBSW_DEVSTS: TERMINALS ENABLED FOR JOBCTLR? 
BLEQ ; IF LEQ THEN DISMISS 

15$:  PUSHR #*M<R3,R4> : SAVE THESE REGISTERS OVER THE FORK 
MOVL  &#TTY$V'FD_UNSOL,R4 + ASK FOR UNSOLICITED DATA FORK 
BSBW =s TTYSCRE_FORK : FORK TO SEND MESSAGE 

20$:  POPR #*M<R3,R4> 

100$: POPL RO 
RSB 
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is «SBTTL TTYSPURGE_AHEAD = PURGE TYPEAHEAD BUFFER 


p++ 
; TTYSPURGE_AHEAD = PURGE THE CONTENTS OF THE TYPEAHEAD BUFFER 


; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE RESETS THE TYPEAHEAD BUFFER POINTERS TO REFLECT NO 
: DATA PRESENT. 


: INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
= UCB ADDRESS 


niet: OF TYPEAHEAD BUFFER STRUCTURE 


7 

7? 

7? 

? 

75 ; 

76 ; 

a? ; 

78 ; 

79 ; 

0 : OUTPUTS: 
Z 3 Re, R3 R5 ARE PRESERVED. 

T 


SESSnSONSa SDSS SS SESS OEE DEESEESS 


6 TYSPURGE_AHEAD: : : PURGE TYPEAHEAD 
54 O0E4 CS D MOVL yeast TT_TYPAHD(RS).R4 ; GET TYPE AHEAD BUFFER ADDRESS 
iA 1 : BEAL ; IF EQL THEN NONE 
OC AS OBS CLAW = TTYS$u_ TA. INAHD(RG) SET NO DATA IN TYPE AHE AD BUFFER 
64 ori (4 9€ 90 MOVAB TTYSL“TATDATA(R4 L_ta “PUT(R4); RESET PUT POIN NTER 
O18 C4 9E 91 MOVAB TTYSt7 tA ~DATACRG). THyats TA-GET(R4): RESET GET P 
07 04 a2 OC” CES 93 50S: BCC #TTYSV ST TYPFUL,4(R2),55$; TYPE Altea FULL AND INPUT STOPPED? 
9 CLR STATE <OVRFL os 3 RESET OVERFLOW CONDITION 
0746 3 94 BSB BQ : SEND XON 
05 0 95 55$: 
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“ -SBTTL TTYSREADERROR - Line error occured. 
TTYSREADERROR = READ ERROR OCCURED ON LINE 

; Functional description: 

? this routine is so) ed from a terminal port Gr iver to report 
: 8 read error on a line. It completes the read with error in the 
3 event a read is ties or just returns if no read is active. 
Inputs: 

IPL = Device IPL 


WO0000000 0000000 
—BDOOCOOOOSOOOON0O 


D 
Dd 
D 
Dd 
D 
D 
D 
Dd 
D 
D 
) 
D 
D 
Dd 
D 
D 
D 
D 
D 
D 
D 
Dd 
D 
D 
F 
4 


4: 
é : 
910 : RS = UCB address 
31¢ : Outputs: 
914 : a0. R1,R2,R3 are destroyed. 
a 3 4:R5° are preserved. 
$17 : -ENABLE LSB 
319 TTYSREADERROR: : 
11 920 PUSHR <rO Ra > SAVE REGISTERS 
54 O1F4 BF se 921 MOVZWL asesne PARI : ASSUME PARITY 
52 8 C5 9 : MOVAB. vucBsa i UTATECRS). R2 : ADDRESS STATE DAT 
99 c £0 99 #9 BBS igek : BRANCH IF PARITY ERROR 
7 D 5 90 924 BBS ,TTYSERAMERROR : BRANCH IF FRAME ERROR 
54 0838 BF 3C O3A1 = 925 MOVZWL oss DATAO + OVERUN ERROR 
51 000 C5 H! M6 9 : 10$: MOVL  uUCBSC_TT OGUCBERS) R1 : Get logical uce ,address 
5¢ al 8 AB 4 rely y gou. “REFC(RI : Terminal | - 3 ? 
22 48 AS it Fi 6 9 } BBC att2$v -AUTORAUD. -UCBSL _DEVDEPND2 (AS) chee; thet AUTOBAUD 
53 OD O91 930 CMPBs#*TTYSC ; 18 T 5 CHARACTER A <CR> 
06 13 8 931 BEQL tH ; Yes” His DO AUTOPARITY 
FCAF ; 9 : BSBU TTYSAUTOBAUD > YES THEN JUMP THERE 
0042 31 8 3 ; BRW 15$ : RETURN TO THE USER 
0OFr8 CS) «= 06s«é#E’S; ‘ 935 118 BBCC #UCBSV_TT_PARTY,UCBSB_TT_PARITY(RS),70$; CLEAR PARITY 
OOF8 CS 02 F c6 936 BBS #UCBSV_TT_USERFRAME ,UCBS8_TT_PARITY(RS),70%; DON'T CHANGE THE FRAME 
Oor8 cS) ee a3 B1SB $M_TT_LEN,UCBSB_TT _PARITY(RSS; “SET EIGHT IT FRAME. size 
ooat i Ai 3 3 70$:  BSBW risser, LINE ; THEN TELL THE PORT 
0028 D4 940 BRwW > NOW EXIT 
D7? =: 942:-:128: IF _NOT_STATE _READ,9 SKIP IF NO READ ACTIVE 
Oor8 cS) 01 FA D 94 pet #UCBSV_1T OAT SPARERR, UCBSB. 1! _PARITY(RS) , 138 
ceamaa 36 D1 : 944 CMPL «= RG, #SS$_PARITY ; IS THIS A PARITY ERROR 
7c aS) 54 ; EF; te 13$ aed Fy CBSW_BOFF (RS) : SET ERROR CODE TO. RETURN 
FOF 5 E 303 : SBW TTYSREAD ONE > COMPLETE THE REQUEST 
Hl 348 BRB 158 


brouti JAN-1 ¢: i} AX/VMS Macro ¥94 00 Page $$, v0 
le j- 
vou=002 Try Tse@ipebae wer mdscelancous, si Fa 3tP1 98% 13:8 TTDRVR.BUGSRCJTTYSUB.MAR;1 * ( 
4 01 O8FS 950 908: CPL «RA, #SS$_DATAOVERUN ; IS THIS A DATA OVERRUN 
00000838 rf F ; NO THEN EXIT 
Pi See SET STATE <TYPFUL,OVRFLO> i YES THEN MAKE SURE IT 
¢ 158: ; RESTORE REGISTERS 
POPR = #* FR ; 1 
mes eB : ge FUR EcBHBL tT Gurren {ASSUME 10, CHARACTER To TP 
a ; BRANCH IF ZERO 
13 040A 95 BEL = 168 > SET CHARACTER {VALID 
o10e cs OF 90 Oaoe. «88 MOVE = #1 ,UCBSB_TT_OUTYPE(RS) ¢ BET CHARACTER 
05 061] 960 168: RB 
54 01F4 BF 3 ii 368 9 MOVZWL #SS$_PARITY,R4 + SET ERROR TYPE 
3 oan’ 365 “ UCBSBTT PARITY(RS) 155 ; If NOT ENABLED, ng A 
£5 008 C5 419 965 ne | ie ; DROP CHARACTER, NO E 
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~SBTTL TTYSFRAMERROR = FRAME ERROR ON A READ 
; TTYSFRAMERROR - FRAME READ ERROR OCCURED ON LINE 


me 
ze 


SWSSSF 


> 


RE SO ONO NE OP - OOD NOUN U0 0 


; Functional description: 


: this routine is branched to at eat .. Llp any B hg report a frame 
; read error on a line. It comp He oga! 

last autobaud attempt, and i ° Fett ¢ at a. 
; pessed. the sampling baud rate is toggled between 3 

he toggling to 600 baud will time out in less than rt... 


RRR 


tt at at at tt ss — 9 2s ss es ss 4 0 = ss a 


9 “9.5, socends) has 


GP oe Se Se Oe Be Oe Be Oe Oe Be Se Se Os Oe Oe Se Oe Oe Oe Oe Oe es 
+ 


F 
F 
F 
fF 
F 
a 
F 
F 
F 
F 
F 
F 
: ; Inputs: 
F 9 RO,R4 saved on stack 
F 9 IPL = Device IPL 
; 4 RS = UCB address 
: 4 ; Outputs: 
F 9 Baud rate may chenge. 
: 9 R4,R5 are preserve 
: 3 fT YSFRAMERROR: 
; 44 3; Check if we should attempt autobaud on this Line 
54 o00cO cS oD F 99 MOVL UCBSL_TT LOGUCBIRS) . R4 ; Get logical UCB address 
5C AS. COB 4 336 TSTwW Urasu RE REFC( 3; Terminal in use ? 
OF 1 BEQL ; Branch if yes 
E4 48 AS 10 =«€1 ; $39 BBC OT TERN SECURE UCBOL DEVBEPIRG (RS) . 188 ; NOT SECURE THEN 
53 if TSTB Ri ; NOT NULL DATA THEN NOT A BREAK 
44 8 § BNEQ 18$ : SO GIVE AN ERR 
OA9SF BSBW TTYSCLASS_DISCONNECT : ELSE SIGNAL HANGUP STATUS 
FFCA 1 3 BR 15$ ; THEN RETURN NOTHING 
OA 48 45 9 0 40$: BBS #1T2$V_AUTOBAUD ,UCBSL_DEVDEPND2(R5), 438 ; Check AUTOBAUD 
3 5 TST8 Bi : BREAK? 
D1 1s BNEQ 18% : NO THEN GIVE ERROR 
FED9 ; BSBW TTYSNOTIFY : LET THE JOB CONTROLER KNOW ABOUT 
fF BB 1 BR 15$ 3; THE BREAK 


a 


check time to see that it’s been ‘‘awhile’’. 

note that you want to gyaree oe ovey aultipl “shorerter. pingtesheyetrone 
characters after the first. s check gives between 0 and one second. 
i sg! doesn't seem necessary to yes it be «t least one second. 


CPL UCBSL_TT Abus (RS) 6 
a apne SLAs STIM ; check against current 
BEQL ; exit if equal 


3 make sure there is no valid data in R3, if so, leave it for TTYSAUTOBAUD and 
; don’t toggle baud rate 


MOVB #1, UCBSB_TT_OUTYPE(RS) ; ASSUME GOOD DATA 


y od Sete Ge 
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yous082 TTYSFRAMERROR = FRAME ERROR ON A READ. met Hi 13 £6: i} TTDRVR..BUGSRCITTYSUB.MAR; 1 i" (8) 
HH 9 457 TSTB 8 3; test 
3) 9 459 BNEQ $ : ranch if d date there 
010a8 (5 9 4 2 CLRB 4 =©=—-s UCBSB_TT_OUTYPE(RS) : WE FOUND NO GOOD DATA 
r ; 3 time is OK = continue by checking baud rate 
54 F QA O45F MOVZBL #TT$C -BAUD. 600.R oR4 ; Assume set to 9600 baud 
91 ri CMPB artsc.p 
O0F% C5 4 ont Ue BEE CRS) : At 9600 ? 
12 beh BNEQ 3 no, set 9600 
$33 : Toggle to 600 baud for 2 t» 3 seconds 
54 07 9A 0469 . MOVZBL fttsc _BAUD_600,R4 ; otherwise, set 600 baud 
Boge 80$: SET_STA 
rts <AUTOP> ; Set state autobaud pending 
Oe 3 TIMSET > 
FC43 30 rt} 208: BSBW SET SPEED ; Set Line speed 
00000000 ' GF b0 rtd MOVL G*ERESGL_ABSTIM,- 
0080 C5 48C UCBSL_TT~ “ADUE (RS) ; set time 
FF70 ty 30$: BRid 15$ 3 and exit via main module 
ac99 
049 -DISABLE LSB 
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v04-002 TTY RESTARTIO = RESTART CURRENT 1/0 =3h= 1382 15:85:33 TTDRVR.BUGSRCJTTYSUB.MAR; 1 a (i) 
rh ! 1 -SBTTL TTYSRESTARTIO = RESTART CURRENT 1/0 
295 1088 ; 
492 1054 ;++ 
rs { 5 ; TTYSRESTARTIO = RESTART CURRENT 1/0 
rs ! 2 3; FUNCTIONAL DESCRIPTION: 
492 1 3g 3 This routine restarts an interrupted read or write request. Such 
492 1060 ; requests may have been interrupted due to a powerfail or 
rh ! 61 ; to coincident read and write requests. 
492 1 8 ; INPUTS: 
492 1064 ; 
49 1065 ; Re = ADDRESS OF THE UNIT STATE VECTOR 
49 1 ¢ 3 R5 = UNIT UCB ADDRESS 
492 1067 ; 
492 1068 ; OUTPUTS: 
492 1 +4 3 
049 1070 ; R2,R5 ARE PRESERVED. 
0492 1071 ;-- 
049 1376 
049 10735 TTYSRESTARTIO:: ; RESTART THE 1/0 
049 sre IF NOT STATE ret! 10$ ; IF NOT WRITE THEN CONTINUE 
0496 1075 IFTSTATE WRTALL, 308 : If passall mode, no special 
049A 1 zg 3; restart is required. 
54 00D4 C5 0 049A 107 MOVL UCBSL_TT_WRTIBUF(R5),R4 ; Get address o write buffer. 
0580 0 O49F 1078 BSBW TTYSABORT ; Abort any output activity 
AAS B4& 04A2 1079 CLRW TTY$W_WB_BCNT(R4) i; No. Clear output byte count. 
0 AS 9E O4A5 1080 MOVAB TTY$L_WB_DATA(R4),=- ; And reset the start of data 
1C AG 04A8 1081 TTYSL_WB_NEXT(R4) 3 pointer. 
05 O4AA a6 RSB ; Return. 
4AB 108 
4AB 1084 108: 
4AB 1085 IF NOT_STATE READ 20% ; BR IF READ NOT IN PROGRESS 
53 58 AS DO O4AF 10 6 MOUL ~ UCBSL_IRP(RS) .R3 ; Get address of IRP. 
048 10 IF_STATE RDOVERIFY,40$ 3 NOTHING SPECIAL FOR READ VERIFY 
FOFB 30 0487 1088 BSBw TTYSSETUP_READ ; Setup for the read operation. 
04BA 1089 IF STATE = ; Continue without apes tat 
048A 1090 PASALL ,20$ 3; handling if PASSAL 
4BE 44 IF NOT_STATE = ; or NOECHO ... 
4BE 1 3 NOECHO,15$ 3 
1D 48 AS 00 €1 O4C2 109 BBC #TT2$V_LOCALECHO, - ; without local echo. 
4C? 1094 UCBSL_BEVDEPND2(AS) 208 : 
4C7 1095 15$: IF NOT_STATE = - Also no special handling if 
4C7? 1 38 FRSH, 308 3; REFRESH state is not set. 
0001 °CF GE 4CB 109 MOVAB WATTYSA CTRLU+1,- ; GET A <CR> TO MULTIECHO 
00D8 C5 CF 1 98 UCBSL_TT_MULTI(RS) 
ooDc C5 01 B0 rt 1 MOVW #1 ,UCBSW~TT_MULTILEN(RS) ; AND ONLY 1 CHARACTER HERE. 
407 1100 CLR_STATE = 
407 1101 <CTRLR,SKIPCRLF > 
408 11 $ SET_STATE - ; Set the control-R and 
rt 4 1} Z a06 <EDITREAD,MULTI,SKIPLF>; send a Linefeed and then control-r the read 
0p EO O4E€4 1105 BBS #1O$V_REFRESH,- : If the read specified a 
04 20 A 4E6 1106 IRPSW"FUNC(R35 ,30$ ; refresh, don't cancel it. 
4E9 11 CLR_STATE - ; Otherwise, cancel refresh 


‘ 
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vou2002 TTYSRESTARTIO ST RESTART CORRENTE EypToUey GzgAN~1985 17:28:31 YT TORVR.BUGSRC 4S TYSCB.MAR: 1 (48) 
4E9 11 3 REFRSH 3 state. 
ZED 1110 308: 
5 O6ED 1111 weed: 
Cops +! 83 cee 1112 408: MOVW #SS$_OPINCOMPL ,UCBSW_ pork ins) i NY Ce 1/0 completion status 
3 T TH A FFER ADDRESS 
* § ns be CEB 11a CUMt LAPRECARDIATAGD ms SER We GAR RUREER ADDRESS, | ag 

% AG 0 4F8 1115 MOVB TTY$w_ RB 1AesiRs) ; PUT THE INDEX INTO THE J0SB 
B AS 4F 1116 IRPSL- Rept (R3) 
FAFD' 31 0500 ie BRW TTYSREAD i; Go complete the read 
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TYSRTIMOU: 3 d timed out e 
SETIPL #IPLS_TIMER 3 REDUCE yt TO BEFORE ttt ly THE DATA BASE 
Tress ; MAKE SURE THE UCB 1s LOCKED 
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~SBTTL TTYSRTIMOU = READ TIMED OUT ENTRY 


aS 
oa 


zw 
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TTYSRTIMOU = Read timed out entry (from time dependent schedular) 
Functional description: 

This routine is called from the time dependent schedular via the UCB 
offset UCBSL_TT_RTIMOU whenever a timed read times out. It completes 
the read with time SS$_TIMEOUT error and, then, continues terminal 
processing. 

Inputs: 


IPL = IPLS$_POWER 
R5 = UCB address 


Outputs: 


RO,R1,R2,R3,R4 are destroyed. 
is preserved. 


MOVAB UCB$Q_TT_STATE(RS),R2 : Address state vecto 

IF NOT STATE READ, 20$ : iF THE AST IS LATE (. E. THE READ IS 
LONGER active) THEN EXIT 

MOVW  #SS$_TIMEOUT,UCBSW _BorF (aS) ; Set 1/0 completion status 


i STATE RDVERIFY,5 ; NOTHING SPECIAL poe ones THAN READ VERIFY 


UCBSL_IRP(RS) ,R : GET THE IRP ADDRESS 

MOVL UCBSL“SVAPTE (RS) RG ; GET THE READ BUFFER AD 

CLAL IRPS$L_MEDIA(R3) ; ZERO ALL OTHER READ Ms ig 4 FIELDS 

MOVB TTYSW_RB res te a ; PUT THE INDEX INTO THE JOSB 
IRPS$L-MEBIA+3(R3) 

BSBW TTYSREADONE : Go complete the read 
TTYSSTARTOUTPUT ; then startup any waiting activity 
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~SBTTL TTY$V 


+e 
; TTYSVT_TIMEOUT = DETACHED TERMINAL TIMEOUT ROUTINE 


; FUNCTIONAL DESCRIPTION: 
; we pou IS CALLED 
; A LUCB_HAS B DETACH 
; UI TROUT BEING pene 
; LUCB css 
; uRT 
; WILL CLEAN UP a LUCB 
; INPUTS 


NTERLOCKED AT DIPL 
5 = LUCB ADDRESS 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se & 

— 
oO 

So ow> 

zD mn 
_" 
—~ 
= 
m 
» 
oO 
on 


. WORD 
TTYSVT_TIMEOUT: 
PUSHL 


USH R¢ 
MOVL R5,R6 : LUCB R 
MOVL YCBSL_POT (RG) .R3: GET AD 
BEQL : 
CLRL UCBSL_PDT(R3) 
5$: BICW  #UCBSA_ONLINE,- 
BSw STs ) 


BSBW 
108: REMQUE 208 TO0sL(R6) ER 


V 208 
MOVZWL esse nein ° 
BICW é 

$B § 


» F3EP- 


1986 19:89:42 


IMEOUT = DETACHED TERMINAL TIMEOUT 


TTYSVT_TIMEOUT-. 
; SAVE SCRATCH REGISTER 
QUIRED IN R 
DRESS OF ANY REBINDING PUCB 


NON 
: CANCEL ANY PENDING REBIND OPERATION 
; SET LUCB OFFLINE TO PREVENT ANY MORE 10 


IGNAL at" AST TO OWNER 
RA et E 
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NPUT QUEUE 
E SHOULD BE 


CK TO POOL. 


; NO MOR ED 
3; FILL IN COMPLETION STATUS 


RPS 
IRP PER FUN FUNC, IRPSW_ STS(R3) ; RESET ANY BUFFERED READS 
ata Post ; AND COMPLETE THE 10 
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~SBTTL TTYSSETUP_UCB = SETUP TERMINAL UCB 


“4D 
me 
ze 


++ 
TTYSSETUP_UCB = SETUP TERMINAL UCB 


FUNCTIONAL DESCRIPTION: 


THIS ROUTING is ENTERED DURING SYSTEM STARTUP TO SET UP had bem ucBs. 

THE UCB a OED EXCEPT FOR THE SPEED AND FILL COUNTS. THE CURSOR IS 

tt FORCE A CR=LF. THE HOLDING TANK is" INVALIDATED. THE FORK BLOCK 
If 

li 


~ 
os 


NITIALIZED. 


I 
the write 1 9uque is not yet initialized (indicated by zeroes in the 
sthead), tialize the queue. 


Initialize the read timed out dispatch (UCBSL_TT_RTIMOU). 
INPUTS: 
RS = UCB ADDRESS 


OUTPUTS: 


R5 = UCB ADDRESS 
RO-R4 ARE PRESERVED. 


TYSSETUP_UCB:: 


SET UP THE UCB (PORT INTERFACE) 


Ww 
ad 


POSHL 

MOVL CBS$L_TT_LOGUCB(RS).RO ; GET THE LOGICAL UCB ADDRESS 

BEQL : NONE THEN INIT THE UCB 

TSTW YCBSW_REFC(RO) : IS THIS UCB ACTIVE? 

BEOL $ : NO THEN INIT IT 

POPL : IF ACTIVE THEN RETURN NORMALY 

MOVL  R5,UCBSL_TT_LOGUCB(RS) ; INIT LOGICAL UCB ADDRESS 

MOVL RS .U BSL Tee SPHYUCB(R5) =; INIT PHYSI 

BISL + SHOW PUCB AVALABLE FOR USE 
Ucadt SOeycian 

BICL #DEVSA_RED Ocose > DEVCHARZ(RS) ; SHO PUCB NOT REDIRECTED 

CLRL UCBs CTLPID(R (RS) ; CLEAN OUT A LEFT OVER PID 

MOV vees TEURSORCRS) : SET BAD CURSOR TO FORCE CRLF 

CLRW ucé YY iT bit (R5) NIT HOLDING TAN 

MOVAB USTTYSFORK _ADDR,UCBSL_ FPE(RS): SET UP FORK ADDRESS 


MOVL  UCBSW_TT_DESPEE(RS) ,UCBSW_TT_SPEED(RS); SET UP TEMP CHARS 
MOVB = UCBS$B_TT_DEPARI(RS) ,UCBSB_TT_PARITY(RS);SET UP DEFAULT PARITY 
MOVL  UCBS$B_TT_DETYPE(RS) ,UCBSB_DEVTYPE(RS); 


BICL3 #*C<TTSM_REMOTE>, UCBSL_DEVDEPEND(RS) RO; SAVE CURRENT REMOTE STATE 


6 9 
-T driver miscellaneous subrouti 8=-JAN-1985 17:22: AX/VMS Macro y04-00 Pa TT 
TTY UCB = SETUP TERMINAL UCB or 1An- 1383 15:86:73 TTDRVR.BUGSRCJTTYSUB.MAR; 1 - (33) vO: 
0 44 AS 
06002006 C5 cB 1257 BICL3 #TTSM_REMOTE ,UCBSL_TT_DECHAR(RS) ,UCBSL_DEVDEPEND(RS); 
44 A 
44 AS 0 8 1 BISL RO,UCBSL_DEVDEPEND(RS) ; KEEP PREVIOUS SETTING 
44 a5 FC i is 1388 B1C¢B3 PC cTISHDPASSALE T1Sh, NOE CHS. Ue L_DEVDEPEND(RS),RO; GET PASSALL AN 
1260 
He 3 Set up default DMA characteristics 
00r8 C3 b0 1 8 MOVL UCBSL_TT_DECHA1(RS) ,UCBSL_DEVDEPND2(R5) ; SET UP DEFAULT CHAR WORD 2 
if 38 a 88 €1 1364 BBC #TT2$V_DMA,UCBSL_DEVDEPND2(R5) ,8$ ; SKIP IF NOT SET 
122 C FO 1265 BBS #TTYSV~PC_OMAAVL,UCB$W_TT_PRICTL(RS).5$ ; DMA FEATURE AVAILABLE 
ened *": 8F CA 1266 BICL #TT2$4_DMA,UCBSL_TT_DECHA1(R5) ; SHOW DMA NOT AVAILABLE 
0000004 er CA 1267 BICL #TT2$M_DMA,UCBSL_DEVDEPND2(R5) 3 IF DMA IS NOT AVAILABLE 
0s 11 ! $8 $$ BRB 8$ 
0122 C5 02 As } 20 we BISW #TTYSM_PC_DMAENA, UCBSW_TT_PR? <TL(R5) ; ENABLE DMA USAGE 
Sy Bae 
02 02 : 50 «FO 1 4 INSV RO, #TTYS$V_ST_PASALL #2, UCBS$Q_TT_STATE+4(R5); RESET CURRENT STATE 
$3 8EDO 1274 POPL RO 
1275 
1 6 ; 
1 rs 3; Initialize the write queue. 
1279 ° 
oocc ¢5) OS 1280 TSTL VERSE. TT_WFLINK (RS) ; Is the queue initialized? 
0 12 1281 BNEQ : Yes. Don't redo it. 
OOCC C 9E 1 § MOVAB UCBSL_TT_WFLINK(RS),- ; Initialize queue to point to 
OOCC C 1 UCBSL_TT_WFLINK(R5) i; itself in both directions. 
Occ CS”—so9E 1284 MOVAB UCBSL_TT_WFLINK(R5S),- 3 Now the backward Link. 
0D0 C5 } 5 UCBSL_TT_WBLINK(R5) 
1 $ 10$: 
1589 ; 
' $1 : Initialize read timed out dispatch. 
1 e 
At cf 9E 129 MOVAB TTYSRTIMOU,UCBSL_TT_RTIMOU(R5) ; Set read timed out dispatch 
1336 
05 1295 RSB 3; Return. 
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-SBTTL TTYSCLASS_FORK = PORT DRIVER FORK ROUTINE 


TTYSCLASS_FORK 
DESCRIPTION 
WILL CAUSE A FORK TO BE CREATED FOR A PORT DRIVER. 
WHEN THE FORK IS CREATED THE DRIVER 1S CALLED GACK AY TT's PORT_FORKRET 
DISPATCH VECTOR. 


INPUTS: 


Re = UNIT STATE VECTOR 
= UCB ADDRESS 


; OUTPUT S: 
R4,R3 DESTROYED 
R2,R5 ARE PRESERVED 


{TYSCLASS FORK: ; CREATE A FORK FOR THE TERMINAL PORT 
MOVL ‘ yTTYSV_FD_PORTFORK,R4 ; SET THE PORT FORK 
; AND FALL INTO CREATING THE FORK 


os 
22 
ma. 


FORK = Genera 


-—nocomn 


NTO Orr 


COOCOCCSOSOSOOOSOOSOOOOOOOOOOOOOOOOOOOOO 
ao 
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~SBTTL TTYSCRE_FORK = General purpose driver fork routine 
i "Tryscre FORK = CREATE FORK ROUTINE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE FORKS IN THE UCB FOR EITHER OF TWO REASONS: 


1. UNSOLICITED DATA = SEND MESSAGE TO OWNER 
2. NO TYPEAHEAD BUFFER = ALLOCATE ONE 


{ : 
3 ; INPUTS: 
4: R2 = UNIT STATE VECTOR ADDRESS 
5: R3 = CHARA CTER TO Bu UFFER FOR TYPEAHEAD NEEDED 
$ ; R4 = FORK AREASON s ATE BIT 
: R5 = UCB ADDRESS 
33 : OUTPUTS: 
41: R3,R4 ARE DESTROYED 
4@ ; R2.R5 ARE PRESERVED 
44 TTYSCRE_FORK:: ae E FORK 
45 BBSS  #TTY$V_FD_ BUSY gucpsi FRGIR ) 1208: ARE WE BUSY 
46 BBSS = R4,U BSL Fr4(r5) THE APROPRIATE BIT 
4 3: MOVL ucés gre RZ(R5) RO : ct THe THE BIT INTO R4 
48 $: UCBSL~PID(R5) ; SAVE THE PID ON THE STACK 
4 PUSHAB BS TTYSFORK ADDR : SET FORK ROUTINE ADDRESS 
30 MP TTY$SYNCH : CREATE FORK PRUCESS 
3 $ FORK ALREADY ACTIVE 
54 08: BBSS  R4,UCBSL_FR4(R5),25$ |; SET THE APROPRIATE BIT 
55 25$: RSB : AND RETURN TO THE CALLER 


Terminal driver ererellencous ey $s ubrout 
CRE_FORK = Genera 


at at ts = os oe = Ss 2 ss a 2 se et at se st te 
o 


purpose det ver fo 
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row 


SBTTL FORK k DISPATCHER 
WORD ATTENTION-, ; SET UP ATTENTION INTERRUPT 
TTYSFORK ADDR: : 
: ATTENTION FORK PROCESS 
4 10$:  MOVAB UCBS@_TT_STATE(RS),R2 ; ADDRESS UNIT STATE 

DSBINT UCase DIPL(RS) : DISAB ABLE INTERUPTS FOR THE CHECK 
FFS #0,#TTYSV_FD_BUSY+1 ,UCBSL_FR4(R5),R4; FIND THE FIRST BIT SET 
BBSC = R4,UCBSL_FR4(R5),15$ |; CLEAR THAT BIT 

15$:  ENBINT : ENABLE INTERUPTS 
PUSHAL 108 ; SAVE A RETURN ADDRESS 
ine R4, TYPE=B, <= : AND DISPATCH TO THE NECESSARY ROUTINE 
GETAHD = 


piscounect 
PORTF 
hae INKFORK ° 


LINKFORK = 
FORKEXIT> 
FORKEXIT: 
POPL R4 ; 
RSB ; 
PORTF ORK : 


MOVL UCBSL_TT Peet iats 


R5),R1 3 
JMP aPoRT “FORKRE 1) 


POP OFF_ THE ADDRESS OF THE DISPATCHER 
THEN RETURN 


GET THE PORT ADDRESS 


; AND CALL THE PORTS FORK ADDRESS 
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yousb82 FORK TO DISCONNECT "THE TERRIWAL AND BELL SaRepaiome 17ieo ts PATOMMS Becca Yt rOO many 2% (38, v04 
ae .SBTTL FORK TO DISCONNECT THE TERMINAL AND DELIVER THE HANGUP AST 
DISCONNECT 
1 ¢ : Descrpition: 
1 $ : Delivers all AST’s, aborts all 10 and then sends a terminal hangup 
! s message to the job controler. 
1 $ : Inputs: 
14 , ; R2 = Unit state vector 
1 3 R> = PUcb address 
1? $ : Outputs: 
16 5: RS = PRESERVED 
14 § SISCONNECT: | 
0040 BF BB 14 g PUSHR #*M<R6> 
56 00CO CS D 1408 UCBSL_TT_LOGUCB(RS).R6 ; GET LOGICAL UCB ADDRESS 
1411 DSBINT UCB$B_DIPL(RS) 
0387 Hy 118 BSBW TTYSABORT ; ABORT ANY OUTPUT, 
03B8E 30 141 BSBW  =s TTYSRESUME + AND RESET CONTROL $ 
1414 ENBINT 
00 44 aS OD ES 1416 BBCC #TTSV_REMOTE UCBSL DEVDEPEND(RS),10$ | ;RESET REMOTE TERMINAL 
44 A644 AS DO 141 10$:  MOVL  UCBSLDEVDEPEND(R53,UCSSL_DEVDEPEND(R6) :UPDATE MODIFIED FIELD 
08 48 AS 11 €1 1218 BBC #1T2$V_DISCONNECT,UCBSL_DEVDEPND2(R5),15$;SKIP IF DISCONNECT NOT AVA 
55 01 1420 CMPL sR, RO ; MAKE SURE ITS REASONABLE 
03 13 1421 Ben. «=s«15$ : NO, LUCB/PUCB THE SAME 
0028 = 31 1402 Brw 50$ 
1 ; 15$: 
o03¢ 0 1425 +=  BSBW ——dDISC_FIREAST ; FIRE HANGUP AST 
oace af C 588 14626 MOVZWL #SS$"HANGUP,UCBSW_BOFF (RS) > SET THE RETURN STATUS 
0056 30 c} 14 |! BSBY =—-d»DISC_STOPIO ; STOP CURRENT 1/0 
BC4 14 
54 DO 06C4 1430 MOVL § #MSG$_TRMHANGUP,R4 ; SET MESSAGE TYPE 
55 : DO 06C7 1431 MOVL R : SWITCH TO LUCB CONTEXT 
53° 60 A5 00 O6CA 14 ; MOVL B$i_AMB(RS) ,R3 : GET ASSOC MAILBOX 
1 443 14 BEQL $ : IF EQL THEN NONE 
N00000N0'GF 16 bp 16 4 JSB G*EXESSNDEVMSG * INSERT MAILBOX MESSAGE 
55 9040 cs D0 +y 14 : 20$: MOVL UCBSL_TL_PHYUCB(RS).RS ; SWITCH BACK TO PUCB CONTEXT 
040 8F BA SDB 14 POPR a*mcRB> 
5 O6DF 14 : RSB 
0 124 508: . 
0040 8F ga BED «-14412—=—«*=i‘“<‘«X&wWOPR OCR GD ; RESTORE SAVED REGISTERS 
0161 31 0664 1442 BRW UNL INKF ORK > AND DO UNLINK OPERATION 
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O2CC BF 
1C A 


F 
00000000 ° GF 


= 


=O OONO VWI "OOOO NERO ODVOUE UP" OOONOAOUE 


DISC_FIREAST: 
OSBINT 


wm 
PF 
oe 


S_SNN OU 
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FIRE HANGUP AST 


THIS ROUTINE DELIVERS ALL TSTANDING “Y ASTS WITH 
HANGUP STATUS TO REQUES THE PROCESS BE RUN DOWN. IN THE 
EVENT NONE ARE CURRENTLY QU VED. THEN A FLAG IS SET TO 
SIGNAL THIS CONDITION WHEN THE NEXT “Y AST IS QUEUED. 
*NOTES THIS ROUTINE MAY NOT UTILIZE ANY FIELDS IN THE PUCB 
AS IT IS ALSO USED BY DISCONNECTED LOGICAL UCB'S. 
INPUTS: 
R6 = LUCB 
OUTPUTS: 
RS,R6 PRESERVED 
UCB$B_DIPL(R6) : INTERLOCK TO DEVICE IPL 
V UCBSL“TL_CTRLY(R6) .R4 ; ADDRESS CONTROL Y AST LIST 
MOVL R&R : COPY LIST ADDRESS 
TSTL = (RO) tLIST HEAD EMPTY? 
BNEQ $ 7NO,PROCESS HANGUP ASTS 
TSTW UCBSW_REFC(R6) 31S THIS UNIT OWNED OR ACTIVE? 
7(OR IS IT LOGGED OUT) 
BEQL=SséSS SNOT ACTIVE,SO SKIP FLAG SETIING 
BISW § #UCBSM_TT_HANGUP,- 
UCB$w_BevSTS(R6) 7SET HANGUP FLAG TO NOTIFY NEXT CTRL-¥ 
ZATTENTION AST WHEN IT IS QUEUED. 
MOVL (RO) ,RO 3 GET NEXT ENTRY 
BEQL 3 i EQL THEN DONE 
MOVZ2WL #SS$_HANGUP,ACBSL_KAST+4(RO); INSERT NEW PARAM FOR AST 
BRB 5$ ; CONTINUE UNTIL DONE 
138 G*COMSDELATTNAST . : DELIVER THE AST'S 
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FORK TO DISCONNECT "THE TERMERAL RUD DERE SuZONTISSS 1F:8h:7) PAnsvms macro TTYSUB.MAR; 1 (3) 
ay 16 ‘ : ABORT CURRENT AND QUEUVED READS AND WRITES 
1A 16 : 
: HIS ROUTINE IS USED TO ABORT INTERNALLY QUEUED WRITES AND 
ay 14 ; ANY ACTIVE READ. IT RUNS IN THE CONTEXT OF THE PUCB. 
; INPUT: RS = PUCB 
ap 1490 3 OUPUT: RR - PRESERVED 
71A 1492 DISC_STOPIO: 
~ T $B_DIPL(RS) 3 INTERLOCK TO DEVICE IPL 
Te ee ae me eee 
MOV U mm e : . 
% §} 3 5 1336 VL BFR 3; Copy it to check for end. 
72E 1498 108: 
FLINK(R3),R3 =; Get next entry. 
; $3 p0 , f 1638 CAPE RS Aine M 3 At end of queue? 
OD 13 0734 1501 BEQL mee ; Yes. Branch forward. 
re 18 : INCAS) AS. § et Sntey's bockeed Link 
NK ; Get entr * 
86 a BP ; 13 4 REMOUE OTT YEC UB ENR RSS “Re 3; Remove the Link. 
F BBF % 7 13 5 S$ TTYSWRITEPOST ; Queue it for completion 
eB 11 744 ’ $ 10$ 3; Try for next Link. 
: 3 Stop the current 1/0s. 
by} | os _ IF _NOT_STATE - 3 Branch forward if no read is 
743 +1510 ~ _* READ, 208 3 currently in progress. 
747 «11511 CLR_STATE - ; Clear escape bits. 
ate 18 : OEBS TREGRSD R4 ; Get address of IRP 
™ : “a be reo HE Cone TRPSLREDIACRA) : soeer verarnsters. 
aecagt os 35 14 208: oo atcha : Check for a write to complete. 
757 1849 : IF _NOT_STATE “308 : Grench rorvard if no write is 
757 «151 ~~ WRITE, ; in progress. 
TBUF(RS),R3 ; Get address of write packet. 
" oop. is 8 re i ROvu UCBBNCBOFF RS) = ; Put status code in the 
2 AB: 30 re 13 ; 308 BBW TTYSURTTERONE : omplete the 1/0. 
7 1 : 
ee ea 
76C 1526 
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: i Description: 
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-SBTTL FORK TO CHECK FOR TYPEAHEAD BUFFER FETCH 


ill create a typeahead buffer for the user, then insert 


: the character that caused the buffer to be allocated and cause 


: that character to be processed. 
Inputs: 
Re = UNIT STATE VECTOR 
R C 


R1,R4 are Destroyed 
R2. RS are Preserved 


TSTL UCBSL_TT_TYPAHD(RS) 
BNEQ Vo0s © 
BBC #TT2$V_ALTYPEAHD 
UCBSL_DEVDEPND2(R5) , 728 
MOVZWL G*TTYSGW_ALTYPAHD,R1 
BRB 73$ 
72$:  MOVZWL G*TTY$GW_TYPAHDSZ,R1 


73$: ADDL #TTYSL_TA_DATA,R1 


JSB G*EXESALONONPAGED 
MOVL R2,R4 


CLRW 
DSBINT UtBSs ae tity 
MOVL cB 


LIT TERS) RZ 


MOVAB UC Ucésa, i “STATE ( 
BSBW 


TTYSPORGE AHEAD 
MOVE -UCBSL_ of TR5) , TTYSL_TA_D 
BEQL 808 
INCL —- TTYSL_TA_PUT(R4) 
INCU TTYSWTTATINAHD(R4) 
BSBW TTYS$ 5 TARTOUTPUT 
gos: BBS #TTYSV_FD_GETAHD,UCBSL_FA4 
$: ENBINT 
100$: SB 


= UCB 
UCBSL_FR3 = CHARACTER THAT CAUSED 


04 YYUAZYoUroO 


TYPEAHEAD BUFFER TO BE CREATED 


: ALREADY AL ALLOCATED? 
: SKIP IF NORMAL SIZE 
; ALLOCATE THE TYPEAHEAD BUFFER 


; ALLOCATE THE TYPEAHEAD BUFFER 
; PLUS SPACE FOR HEADER 


; ALLOCATE THE TYPEAHEAD BUFFER 
; COPY BLOCK ADDRESS 


IF FAILURE THEN TOUGH 
SET UP SIZ 
; SET UP END POINTER 
E(R4); 
LEAR OUT THE RECALL SIZE 
OCK TERMINAL DATA BASE 
TORE ADD 
ESTORE THE UNIT STATE VECTOR ADDRESS 
ET UP THE BLOCK 
(R4); INSERT DATA 
KIP_IN NSERT IF NULL 
OINT TO NEXT PLACE 
AND BUMP THE COUNT 
BEGIN NEXT STATE 
(R5),90$; CLEAN THE BIT OUT AGAIN 
LOWER IPL 
THEN RETURN 
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v04=002 LINKFORK = RECONNECT LUCB/PUCB meet Fi 15:89:33 TTDRVR.BUGSRCJTTYSUB.MAR; 1 ead ) 
707 (1577 ~SBTTL LINKFORK = RECONNECT LUCB/PUCB 
70? 1 £8 . 
707 +157 3+¢ 
pf 1 y 3 LINKFORK = LINK LOGICAL AND PHYSICAL UCB 
44 : : FUNCTIONAL DESCRIPTION: 
707-1584 : THIS FORK ROUT INE 1S QUEVED TO LINK A PUCB AND LUC 
707 13 5; THE LUCB ADDRESS TO BE LINKED TO IS CONTAINED IN PUCB 
707 1 ; : OFFSET UCBSL_PDT. THIS ROUTINE RESETS BSY IN UCB$W_STS 
Ay 13 ; AND RESTARTS” PENDING IRP’S IN THE I/O QUEUE. 
ies 12 : + INPUTS: 
0707 1590: 
707-1591 : RS = PUCB ADDRESS 
7D? 139¢ : 
7D? 1593 :-- 
O70? 1594 LINKFORK: 
54 0084 (5 DO O7D7 1595 MOVL  UCBSL_PDT(RS) ,R4 ; GET SPECIFIED LUCB 
OB AG 08 AS 90 O70 1596 MOVE UCB BS =F IPL RS} .UCBSB_ FIPL( : FORK IPL 
SE AG) 6SE AS) Ss o90s«OO7E1~—s 1597 MOVB UCBSB~DIPL(RS) UCB $87 DIPL( ; DEVICE IPL 
64 AG 01.—s@BA ore 1398 BICB #UCBSA_TIM,UCB$w_STSTR4) + AND TURN SFE TIMER BIT IN 
00020009 af C8 O7EA 1600 BISL #TT2$M_DISCONNECT,UCBSL_DEVDEPND2(R5) ; SET DISCONNECT BIT 
O7F 1601 ; BECAUSE WE ARE DISCONNECTA 
44 06 64605 DO O7F2 16 : MOVL  UCBSL_DEVDEPEND(RS) ,.UCBSL_DEVDEPEND(R4) : MAKE SURE LUCB IS 
48 AS «648 AS) 0 Orr? 1603 MOVL  UCBSL DEVDEPND2(R5) ,UCBSL-DEVDEPND2(R4) : IMAGE COPY OF PUCB 
0OA0 C4 «= 55~—é«é bore 1605 MOVL  R5,UCBSL_TL_PHYUCB(R4) ; LINK LUCB TO PUCB 
00c0 €5 «54S i0s«0801 =: 1606 MOVL  R4,UCBSL~TT~LOGUCB(RS) : LINK PUCB TO LUCB 
00A0 (5) = 555—s«é 0806 1607 MOVL  R5,UCBSL~TL~PHYUCB(RS) + SHOW PUCB=PUCB 
0084 (4 D4 0808 1608 CLRL = UCBSL_PDT(RZ ; RESET REBIND FIELDS 
0084 (5 4 O80F 1609 CLRL —UCBSLPDT(RS) ; RESET REBIND FIELDS 
3c AG O02SiCCAM oBi3 1611 BICL #DEVSM -DET UCBSL_ DEVCHAR2(R4) ; LUCB NOW NOT DETACHED 
00040000 8F (CA 0817 1618 BICL #DEVSMTAVL.- ; SHOU PUCB NOT AVALABLE FOR 
8 AS BB1D 161 UCest BEVCHAR(RS) 
00000190 ar (8 If 1614 BISL #DEVSA_RED, UcBsi “_DEVCHAR2(R5) ; SHO PUCB REDIRECTED 
7 1615 
55 54 «(0 7 1616 VL RG RS. ; SWITCH TO LUCB CONTEXT 
53 4C BS) OOF A 1617 REMQUE @UCBSL_IOQFL(RS).R3 ; GET A PACKET OFF QUEUE 
1D f 1618 S 108 > QUEUE EMPTY 
00000842'EF DF 161 PUSHAL 20$ t SAVE RETURN ADDRESS 
00000000'GF 17 6 1620 JMP C*1OCSINITIATE : START THE PACKET 
0100 8F AA 5¢ 1621 108: BICw  #UCBSM_BS y UCeSW. STS(RS) : RESET BSY BIT IN LUCB 
42 16 : : TO ALLOW NEW OUTPUT 
55 O0A0 C5 B0 42 1623 208:  MOVL UCBSL_TL_PHYUCB(RS).RS ; wOttH BACK TO PUCB 
0 4 16 4 RSB > DONE 


ETT a ee ee ee 
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v04=002 UNLINKFORK = DISCONNECT LUCB/PUCB ~SEP=1984 17:57:1 TTDRVR.BUGSRCJTTYSUB.MAR; 1 (34) vO: 
i i rs .SBTTL UNLINKFORK = DISCONNECT LUCB/PUCB 
4 1 it 
re 1 ? 3 UNL INKFORK - UNLINK LOGICAL AND PHYSICAL UCB 
, 16 gi > FUNCTIONAL DESCRIPTION: 
BC 1634 THIS FORK ROUTINE IS QUEUED TO ALLOW ANY READS AND ufite FORKS 
48 1635 ; TO FINISH PRIOR TO UNLINKING LOGICAL AND D PHYSICAL CBS. | 
48 16 $; ; CURRENTLY QUEVED WRITES ARE COMPLETED NORMAL: 
0848 1637: CURRENT READ, IS INSERTED AT THE HEAD OF THE 170 QUEUE. MME 
9 4 16 8 ; UCB BUSY” Bit! 1S SET TO PREVENT ANY NeW 1/0 FROM STARTING. 
ase 1660 ; ? INPUTS: 
84 164¢ : RS = PUCB ADDRESS 
Spe 1e0z : 
O84 1645 UNLINKFORK: 
54 00C0 CS 00 0848 1646 MOVL  UCBSL_TT_LOGUCB(RS) ,R4 ; GET LOGICAL UCB ADDRESS 
52 0088 (5)~—sO9E OB4p 1667 MOVAB UCB$Q"TT~STATE(R5) ,R2 : GET STATE ADDRESS 
O82 1649 ; CHECK FOR ANY ACTIVE 1/0 
0852 1650 IF_STATE READ, 40$ 
0856 1651 lf “STATE WRITE, 30$ 
OO0O00000'EF 85 O85A 1 TSTw gieN : CHECK TO SEE IF THE FORK QUEUF 
3E 12 086 : a 308 ; IS EMPTY NO THEN WAIT SOME MORE 
862 1653; E Luce 1S IDLE, SO WE FORCE BSY TC PREVENT ANY NEW 1/0 FROM 
0862 1654 : BEING STARTED. fHiS WILL ALLOW THE LUCB TO BE DETACHED, AND THE 
oes 1655 ; CB TO BE FREE FOR FUTURE CONNECTS 
0100 ar a8 86 1839 BISW § #UCBSM_BSY,UCBS$W_STS(R4) : FORCE BSY 
D4 O88 1658 CLRL —- UCBSL_IRP(R4) > SHOW NO 1/0 ACTIVE 
4 D4 0868 1659 CLRL uCBSL TL_PHYUCB(R R) ; AND BREAK LINK TO PUCB 
00c0 ¢5 5 00 sr 1660 MOVL 5, UCBSL~TT_LOGUCB(RS) 3; AND MAKE PUCB=LUCB 
C 02 8 2 1661 BISL POEVEM DET, OCBSL  DEVCHARZ(R4) + LUCB IS NOW DETACHED 
7 1868 ; INIT TIMER ON LUCB TO INSURE IT DISCONNECTS 
, 1664 ; IF NOONE RECLAIMS IT WITHIN 30 MINUTES 
FcB9 CF 9E £8 1666 MOVAB TTYS$VT_TIMEOUT,UCBSL_FPC(R4) ; LOAD VECTOR FOR TIMEOUT ENTRY 
0000 0 GF (1 4 1667 ADDL3 G*TTYSGL_TIMEOUT,G*EXESGL_ABSTIM,-; AND SET TIMER 
retend 6C he 9 1668 BS. SD DUETIMIRS) 
64 06 01 «88 : 1669 8158 vies A_TIM,UCB$W_STS(R4) ; AND TURN ON TIMER BIT IN LUCB 
F 1671 
F ere : IF REBINDING STATE THEN GoTo LINKFORK 
3¢ E4 F 167 BBSC #TTY$V_SX REC NNECT 
08 0088 ¢ 31 rh UCcB$Q_TT *STATECR ), 508 
F997 30 (089 187 BSBW = CANCEL_MODEM ; CANCEL THE MODEM (HAlouP IF 
98 167 + NECESSARY) 
FOBB CF 4616 «089 1678 JSB CANCEL_RESET : GO RESET PUCB. THIS WILL ALSO 
9C 167 : MAKE IT AVAILABLE 


‘a 
7 
— 


PAO 


7C AS re ; 
i: i 


bal 
w 
ed 


yr 
oO 
wn 


ODOOODOOOOOOO@BM@M@c@caceMM TG 


Sop 
OTOOAOuMIV 


SIP AA AAA AAA AAAS AO 


COOooooocoo 
CdNOA ASW SO OOO NEWN OOOO WO 


OOoOoCoooccccoo 
Saw 


‘CD CD Cd Od Cd Od CD CD CD OD. 
ee ee dd 


NSNYUMVIOOO PVN? PPP > PP POO — 


SQN ON 
RNIN tt tO 
moO GOwOuFslwnr—-oO°o 


OOoOoooooooooooo 


MMMMMO OOS IVIMOMOOOOOMAAOOOOO 


voreutt o-16n-13 5 1 i: $6: 3) ay? VMS Macro V04-00 Page (if) 


P=1984 1 TTDRVR.BUGSRC TTYSUB.MAR; 1 
RSB 
BRW LINKFORK ; GO LINK PUCB TO REQUESTED LUCB 
STOP 10 ON PUCB PRIOR TO DISCONNECT 
MOVZWL #SS$ -NORMAL, UCBSW_BOFF(RS) ; SET THE RETURN STATUS 
BSBW DISC ™STOPIO. ; stoP CURRENT 
BBCC #TTYSV_FD BUSY ; FORCE NEW FORK TO QUEUE BEHIND ALL OTHERS 
UCBst FROTRS) 85S 
MOVL = #TTY ve Fp aunt tik. R4 ; AND QUEUE THE FORK 
BSBW ss TTY SCRE 
POPL R4 ; POP OFF TERMINAL FORK CONTROL RETURN PC 
RSB : AND EXIT 
REQUEUE ANY ACTIVE READ TO THE HEAD OF THE QUEUE 
DSBINT UCBS$B_DIPL(RS) ; INTERLOCK WITH DEVICE INTERRUPTS 
MOVL  UCBSL-IRP(RS) ,R3 : GET IRP OF ACTIVE READ 


INIT READ STATUS FIELDS 

BBSC #UCBSV_TT_TIMO,UCBS$W_DEVSTS(R5),50$; RESET ANY TIMED READ STATE 
INSQUE (R3),UCBSL_IOQFL(R4) § ; AND PUT AT HEAD OF THE QUEUE 
CLR_STATE. = 


READ, DEL,EOL,- 
PT, CTRLR,NOFLTR,- 
ESC,ESC_0,BADESC,PRE,- 
REFRSH, EDI TREAD, SKIPCRLF ,RDVERIFY,- 
MULTI, RECALL, OVERSTRIKE,EDITING,- 
QUOTING ,BACKSPACE , TERMNORM> 
ENBINT 
BRB 20$ ; AND FULSH COMPLETE ANY WRITES 
MOVZWL #SS$_HANGUP,UCB$W_BOFF (RS) ; SET THE RETURN STATUS 
BSBW = TTYSREADONE ; AND COMPLETE THE READ 
BRB 45$ 
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»SBTTL FORK TO SEND UNSOLICITED DATA MESSAGE 
UNSOL 


mina Vv 
TO § N 
a 
HL 1 is 
ES 1558 : 
E7 5 5 ; Description: 
E? 1729 ; LL send a message to the job controler indicating that 
ef if 9 : unsoliced input has been recieved 
4 i § ; Note: This routine runs in context of the logical UCB. 
E? 1734 ; INPUTS: 
4! 1735 ;: Re = UNIT STATE VECTOR 
ef Vv § ; RS = UCB ADDRESS 
E? 1788 : OUTPUTS: 
E77 1739 ; RS is DESTROYED 
+44 1009 3 R2,R5 ARE PRESERVED 
E7 1248 : REGISTER USAGE: 
E7 1743 ; RS = LOGICAL UCB 
E7 1744; R6 = PHYSICAL UCB 
Ee isan 
0060 8F 8B E7 1509 PUSHR #*M<RS,R6> ; SAVE REGISTERS 
55 o0oco cs D : 1748 MOVL  UCBSL_fT_LOGUCB(RS).RS : LOAD LUCB ADDRESS 
56 OOAO CS OD ; 1789 MOVL UCBSL_TL_PHYUCB(R5),R6 ; LOAD PUCB ADDRESS 
54 01 9A O8F 1751 MOVZBL #MSGS$_TRMUNSOLIC,R4 3; SET MESSAGE TYPE 
5c AS B85 bare 17 § TSTwW BSW_REFC(RS) 3; IF REF COUNT O THEN 
0p 13 FB We BEQL ; JOB CONTROLLER 
55 604A 00 FD 1754 MCVL UCBSL_AMB(R5) ,R3 3; GET USER'S MAILBOX 
— 7% 1 173 BEQL $ 3; IF E€QL THEN NONE 
2E 68 AB O02 EQ 09 ; 17 § BBS EYL OOV_1T MOTIF UCBSY_DEVSTS (nea ; BR IF ALREADY NOTIFIED 
14 #171 . . 178 50s: BRB 55$ 3; CONTINUE 
eeeneeedl dO i'r 17 § : MOVL G*TTYSGL_JOBCTLMB,R3 ; ADDRESS JOB CONTROLLER MAILBOX 
20 68 A6 «60200~—Cé*ECOO 311 1769 BBS #UCBSV_JOB,UCBSW_DEVSTS(R6),65$; BR IF NOTIFIED ALREADY 
11 —1 91 176 BBC #TT2$V_DISCONNECT,=- 3; SKIP IF UNIT NOT ABLE TO DISCONNECT 
03 48 A6 318 1768 UCBs BEVDEPND (Rb) ,55$ 
001D 30 3ie 1786 BSBW CLONE _UCB ; GO CREATE LOGICAL UCB 
000000: O'¢t 1 at Hs 55$: JSB SCRE SSMOEWRSE , SEND THE MESSAGE 
F F 9 17 8 BLBC RO 8 $ ; IF FAILED ance LEAVE DATA BASE UNCHANGED 
CA Q 927 17 TST i) W_REFC(RS) : REF COUNT 0? 
° 92A 17 BNEQ >: IF NEQ THEN USER 
68 A6 A g 1 BISW #YCBSA_JOB,UCBSW_DEVSTS (RO) ; SET NOTIFIED 
4 11 0936 177 BRB ; LOOK TO UNSOLICITED DATA 
68 A6 AB 09 177 608: BISW #UCBSM_TT_NOTIF ,UCBSW_DEVSTS(R6); SET NOTIFIED 
0060 8F BA 9 1774 65$: POPR @*M<R5 ROS ; RESTORE REGISTERS AND SWITCH BACK TO PUCB 
5 > A Hae} RSB ; RETURN TO THE DISPATCHER 
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driver mis 

OGICAL UCB -SEP=1 TTDRVR.BUGSRCJTTYSUB.MAR; 1 (35) v0 
es -SBTTL CLONE NEW LOGICAL UCB 
; CLONE_UCB 

§ > Description: 
$ 

5 


iis - Term 
bu2002 CLONE 


ase cout ine will clone a logical ucb and cross link it to the 
specified aye teet ucb. The ogical ucb fields are initialized 
as appropria 


DOOOOOS OOOOOOOOOOOOOOOOOONOND 2: 


i 
1 
1 
: 
15 3 
1784 ; 
1785 5 
7 + Inputs: 
i ; R6 = PHYSICAL UCB ADDRESS 
122 ; Outputs: 
1738 ; R5 = LOGICAL UCB ADDRESS 
1e38 3 R6 = PHYSICAL UCB ADDRESS 
1796 : RO-R4 DESTROYED 
1798 CLONE_UCB: 
18 8B B 179 PUSHR #*M<R3,R4> 
00000000" EF D0 3 1800 MOVL VT$UCB{RS ; GET ADDRESS OF TEMPLATE UCB ADDRESS 
56 13 (0944 (1 01 BEQL 508 > NONE ESTABLISHED 
00000000'GF 16 0946 1 2 JSB G*IOCSCLONE_UCB : GO CREATE A DETACHED UCB 
4D > E9 094C 180 BLBC = RO, 508 : ERROR, SO SKIP ITS : E 
55 DO O94F 1804 MOVL  R2.R : GET NEW LUCB ADDRESS 
5c AS oB4 952 5 CLRW  UCBSW_REFC(RS) : INIT REFERENCE COUNT 
00010000 af C8 953 0? BISL eee ; MARK THIS LUCB TO BE DELETED ON LAST DEASS 
00040000 8F CA 0950 1 09 BICL ; SHOW PUCB NOT AVALABLE FOR USE 
Ab 963 1810 Ucbat Perey 
00000190 ar C8 363 1811 BISL  #DEVSA_RED, Ucose. _DEVCHAR2(R6) ; SHO PUCB REDIRECTED 
‘ 
D9eD 1813 
é 14 : INIT LUCB FIELDS 
41 AS 4106 90 6 1 18 MOVB  UCB$B_DEVTYPE(R6) ,UCBSB_ DEVTYPE (RS) ; TERMINAL TYPE 
OB AS 6 9 181 MOVB UCBSB~FIPL(R6) UCB fIBL(RD) : FORK IPL 
5E AS ad 977 1 18 MOVB UCBSB-DIPL (RG) UCBSB DIPL(RS) : DEVICE IPL 
4 Ad és Ab 8 7 181 MOVW  UCBSW"DEVBUFSIZ(R ) OCBSU_DEVBUFSIZ(R5) : BUFFER SIZE 
4405 4406 D 1 : MOVL UCB LDEVDEPEND(R )UCBSL“DEVDEPEND(R5) : DEVICE CHARACTERISTICS 
48 AS 48 Ab p 0986 1 MOVL  UCBSL“DEVDEPND2(R6) .UCBSL DEVDEPND2 (RS) : 
SFAS SF A 1 : MOVE §-UCBS$B~AMOD(R6) ,UCB$B_AMODTRS) $ DEVICE PROTECTION 
90A0 C5 ; D 1 MOVL R6,UCBS$L_TL_PHYUCB(RS) : LINK LUCB TO PUCB 
CO C6 D0 0995 1824 MOVL  R5-UCBSL~TT~LOGUCB(R6) : LINK PUCB TO LUCB 
| + 5 BRB 55$ 
55 56 DO <7 $ 508: MOVL  R6,RS ; ERROR, NO LOGICAL UCB CREATED 
1 BA 99F 1 : $: POPR #*A<R3,R4> 
5 O9A1 1 RSB 
D9A2 1 p 
D9A2 1 
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9A 


9A ; ~SBTTL ATTENTION = UNIT TIMEOUT, POWERFAIL ATTENTION ROUTINE 
9A2 1855 34+ 
RA | g: ; ATTENTION = UNIT TIMEOUT, POWERFAIL ATTENTION ROUTINE 
9A2 1 THIS ROUTINE IS ENTERED VIA THE UCBSL_FPC ON POWERFAIL OR TIMEOUT. 
9A2 1 3 THE ACTION IS TO RESTART THE I/O IF TRE POWER FAILED AND TO CANCEL IT 
a ! 7 ; IF A TIMEOUT OCCURRED. 
9A 4 : INPUTS: 
O9A a4 ; RS = UCB ADDRESS 
9A 46 : OUTPUTS: 
9A2 1 48 : RS = UCB ADDRESS 
aa5 1880 
9A2 1851 ATTENTION: ; ATTENTION INTERRUPT 
F65B' 30 O9A2 1 3g BSBW ss TTY$LOC SET IPL AND REGISTERS 
06 64 a5 05 €1 93 33 BBC pucesy. POWER, UCBSW_ seeenia® O$; CANCEL IF NOT POWERFAIL 
9AA 1855 ; 
BAA 36 3 POWER FAILED WHILE THIS UNIT WAS WAITING FOR AN INTERRUPT. 
9AA 1858 ° 
004A 39 O3AK 1 3g BSBW pest aR ; Restart in progress 1/0. 
F650' 31 O9AD 1860 BRW TES SSTARTOUTPUT ; BEGIN THE 1/0 AGAIN 
380 61 20$: 
se) e§ : CHECK FOR AUTOBAUD AT 600 BAUD TIMEOUT 
980 1865 ° IF _NOT STATE AUTOP, 50$ ; SKIP IF NOT 
OF 98 0984 1 66 hovreu” #TT$C_BAUD_9660,- 
OOF4 C5 986 186 UCB$W-TT_SPEED( RS) SET 9600 BAUD 
OoEC C3 90 989 1868 MOVB  UCBS$B"TT ~DEPARI (RS) , ucesé_ TT_PARITY(R5); RESET THE PARITY 
0082 30 09C0 1 $9 BSBW = TTYSSET_LINE ; RESET SPEED ON LINE, 
9¢3 1 p : SINCE TIMER EXPIRED 
05 09c3 187 RSB 
3c 188 
9C4 1874 : ACTUAL HARDWARE TIMEOUT 
ae a 
904 1 8 50$: 3; Handle timeout 
0082 ¢5 6 904 1 28 INCW ©=——s UCB Sw FRRCNT(RS) ; BUMP ERROR COUNTER 
022C 8F C 09C8 187 MOVZWL #SS$_TIMEOU 3; Load status code into the 
C AS 9CC 1880 uCcBsO "BOFF (RS) ; UCB status word. 
gE I os, 
ace 1 ; IF _NOT_STATE = ; Branch forward if not in a 
9CE 1884 verte 70$ 3: write state 
004 3 a0 1885 BSBW TTYSABORT : Abort any output activity 
53 00D4 C€ 0 905 1 § MOVL UCBSL_ u J We Tey (RS). oR3 ; Get address of wr ite buffer. 
CA 8 9DA 1 MOVW uCcBSwW 3; Save status in the write 
28 A 90D 1888 TTY y -o8. di ae > packet. 


TTYS = Terminal driver 6} Lengoy $$ A. AN-1985 AX/VMS Macro y04-00 Pa 
vousb82 ATTENTION = "UNIT TIMEOUTS POGERERTS. Atte SaRONTISRS 15:88:73 paxsyms: BoesRchttyeve.man;1 2% ($8, 
FOIE’ ° Bee } BSBW TTYSWRITEDONE 3; Complete this write. 
( 1 3; Check for are oad, 
; | IF _NOT ~STATE E 30s ; Branch forward if not reading. 
| CLR_STATES - ; Clear escape states. 
< »BADESC> 
54 4 1 38 MOVL CB IRP(RS) RS 3; GET CURRENT PACKET 
Z. FO 1 CLRL 1 L“MEDIA(RS) : SET NO TERMINATORS 
OF 1 3 BSBW TYSREADONE ; COMPLETE READ 
OF 1899 80$ 
9F6 1900 RSB 
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Re = UNIT state vector 
= UCB address 


rminal driver miscellaneous RA. a -JAN-1 AX/VMS Macro y04-00 Page 47 
ART = RESTART EVERYTHING ON POWERFAI ae 382 15 6: i} TTDRVR.BUGSRCJTTYSUB.MAR; 1 . (37) 
re -SBTTL RESTART = RESTART EVERYTHING ON POWERFAIL 
j RESTART 
; Description: 
; Power fail recovery code. Called by the state dispatcher when 
; @ powerfail is detected by the port unit-init routines. 
: Inputs: 
3 RS = UCB address 
; Outputs: 
RESTART: : 
BICW #UCBSM_POWER UCBSW_STS(R5S); RESET POWERFAIL 
MOVAB UCB$Q_TT_STATE(RS);R2 ; ADDRESS STATE VECTOR 
BSBW TTYSABORT 3; ABORT PORT ACTIVITY 
BSBW TTYSRE SUME 3 AND THEN RESUME Pont ACTIVITY 
CLR_STATE POWER 3; RESET POWER FAIL STATE 
SET_STATE REFRSH : FORCE READS TO BE REFRESHED 
JMP TTYSRESTARTIO ; SET UP THE CURRENT 1/0 
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Inputs: 


; Outputs: 
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TYSPOWERACTION: 
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TTYSPOWERACTION = PORT ENTRY FOR POWERFAIL RECOVERY ACTION 


+ 
TTYSPOWERACTION 


y the port driver's unit-init routine when a powerfail is 
ne wit) close the interupt Capac tee bit ang setup 
2 c 


lL us back dur the first pass of t mer survice routine. 


e also sets the POWER bit in the unit state vector to perform 
powerfail recovery if the timer is reset by a burst or character output. 


RS = UCB address 


sters are preserved 


UCBSL_BuE 
#TTYSA_ST_POWER,UCBS 


_STATE(RS) 
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~SBTTL CLASS DRIVER JACKET INTERFACE TO PORT DRIVERS 


FUNCTIONAL DESCRIPTION: 

These routines are the only proce in the driver that the terminal 
port driver is actus ty cal.ied. These routines allow the terminal class 
driver to add code that would have been duplicated in every port driver. 
Inputs to all routines: 


RS = ucb address 


OOBNAUEWN—OO be 
: + 
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TTYSABORT = Abort current output activity 


TYSABORT:: 

PUSHR #*A<RO> 3; SAVE A REGISTER 

BBCC £TTYSV_ST_CTRLS ,UCBSO_TT_STATE(RS) ,~ ; ALLOW CLASS OUTPUT 
5$: 

MOVL UCBSL_TT_PORT(RS) ,RO ; GET THE ADDRESS OF THE POR! 

JSB @PORT- ABORT (RO) ; GOTO THE ROUT!NE 

POPR #*mc<rO> 

RSB 3; and return 
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TTYSDISCONNECT = Indicates last deassign. 


INPUTS: 
R5 - UCB address 
TYSDISCONNECT:: 
PUSHR #*M<RI> ; SAVE A REGISTER 
MOVL ucest TT poner R5),R1 ; GET THE ADDRESS OF THE PORT 
JSB DISCONNECT ( {RT + GOTO THE ROUTINE 
POPR of oheh 1 
RSB 3 and return 
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= Termin 
CLASS DR 
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; TTYSOS_SET = SET OUTPUT MODEM SIGNALS 
INPUTS: 


HIGH 
RS = UCB ADDRESS 


OUTPUTS: 
R1 = R3 ARE USED 
TYSDS_SET:: 
PUSHR ag 
UCBSL_TT_PORT(RS) RO 
JSB SPORT D S"SET(RO) 
POPR mcRO> 
RSB 


1:88:43 


R2 - ive orrt - SIGNALS TO ACTIVATE 
BYTE = SIGNALS TO DEACTIVATE 


; SAVE A REGIS 


; GOTO THE ROUTINE 


TE 
GET THE a nt 


; and return 


R 
$s 


AX/VMS Macro y04-00 
TTDRVR.BUGSRCITTYSUB.MAR; 1 


OF THE PORT 


Wy - Terminal i A ~4.. -JAN-1985 AX/VMS Macro v04-00 Page 5 
bus 002 CLASS DRIVER JACKET EATERS nee TO PORT Ba PaRPNTHS82 1b:e5:3) PAXsUMS Macro. TTysuB.MaR:1  °% (28) 

AGF 3 
wri! ¢ 3 TTYSMAINT = MAINTNENCE ROUTINES 

0 Mee HTVSAAINT #°M<RI> ; SAVE A REGISTER 

51 0118 og Be AS1 $ MOVL UCBSL_TT_PORT(R5),R1 : GET THE ADDRESS OF THE PORT 
30 B1 6 OA5S6 2028 JSB akon gratnre R1) ; GOTO THE ROUTINE 
02 BA OAS9 2029 POPR 
05 OASB 2030 RSB 3 and return 
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04-002 CLASS DRIVER JACKET INTERFACE TO PORTUOR SaRepatome TeLeo its PANZNMS Macro YO4700 nans1 2 «day 
ASC ; 
Ase ! TTYSRESUME = CONTINUE OUTPUT ON A LINE 
a5 5 TTYSRESUME: : 
01 8B DASE 036 PUSHR  #*M<RO> AVE A REG 
onc cS 1D ED. abe BBS ATTYSV_ST_CTSLOW,UCBSO_TE_StATE*G<RS) 1DScIF CLEAR TO SEND IS LOW 
Agi 2038 : THEN DON'T RESUME YET 
00B8 CS (01. —CES.s«OAG4 BBCC —- #ITYSV_ST_CTRLS,UCBSQ_TT STATE(RS),-  ; ALLOW CLASS OUTPUT 
00 OAS 2040 5$ 
OA6A 41 5$: 
50 0118 C5 DD AGA 2048 MOVL _UCBSL_TT_PORT(RS),RO —;_GET THE ADDRESS OF THE PORT 
24 BO 16 OACF 504 JSB_ _@PORT "RESUME (RO) : GOTO THE ROUTINE 
01 BA bare bee 10$ POPR <RO> 


RSB 3 and return 
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3 TTYSSET_LINE = SET SPEED AND PARITY 


+ IMPLICIT INPUTS: 
: UCB$B_TT_PARITY = See PARITY STOP BIT AND FRAME SIZE INFO 


TTYSUB - Termi 
v04-002 CLASS D 


zs 


A7 3 Mitts TT"SPEED = LOW 
A7 ; HIG YTE ZERO OR at A SPEED 
a : UCBSB_TT_PRTCTL - DRA AND AUTOXON ENABLE FLAGS 
A? tTYSSET “LINE: 
0 0 #*M<RO> ; SAVE A REGISTER 
50 «(0118 C 0 mov UCBSL_TT pont (R5) RO ; GET THE ADDRESS OF THE PORT 
08 B 8 JSB aPORT “SET_LINE(RO) 3 GOTO THE ROUTINE 
POPR <RO> 

0A81 920 RSB 3 and return 


Page 54 
o- (45) 


TT! 
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02 CLASS DRIVER JACKET INTERFACE TO PORT DR 7=SEP=1984 17:57:12 CTTDRVR.BUGSRCJTTYSUB.MAR; 1 (46) 
" $3 ; TTYSSET_MODEM = START MODEM POLLING 
A é : RO = R4 USED 
A 66 TTYSSET_MODEM: 
01 BB OA 6 PUSHR #*M<RO> ; SAVE A REGISTER 
50 0118 CS DO OAB4 2068 MOVL UCBSL_TT_PORT(RS) ,RO ; GET THE ADDRESS OF THE PORT 
28 BO 16 OA89 2069 JSB aOR “SET_MODEM(RO) ; GOTO THE ROUTINE 
01 BA OABC 2070 POPR #°mcrO> 
05 OA8E 2071 RSB 3 and return 
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iver miscel 

JACKET INTERFACE TO PORT DR 7*SEP=1984 17:57:12 CTTDRVR.BUGSRCJTTYSUB.MAR; 1 (47) 

73 i ; TTYSSTOP = STOP OUTPUT TO THE TERMINAL LINE 

75 tty$stoP:: 

i: PUSHR  #*M<RO> ; SAVE A REGISTER 

7 BBSS #TTY$V_ST_CTRLS 

8 oa, UCBSQ_ rt _STATE( RS) .5$ ; BLOCK NEW OUTPUT 

0 : MOVL UCBSL_TT_PORT(RS).RO =; GET THE ADDRESS OF THE PORT 
J$B aPORT~STOP(RO) + GOTO THE ROUTINE 

; POPR a omeRDS 
RSB 3 and return 
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er miscellaneou 
CKET INTERFACE 
; TTY ret © 
3_TTYS$XON 
eFNAOLE LL LS 
TTYSXOF 
PUSHR 
MOVZBL 
BBC 
BBS 
BBS 
MOVZBL 
10$: MOVL 
JSB 
208: POPR 
RSB 
30$: BITL 
BNEQ 
BRB 
TTYSXON: : 
PUSHR 
MOVZBL 
BITL 
BEQL 
MOVL 
JSB 
RB 


B 
-DISABLE LSB 


FF = CALCULATE eres TO SEND 
~ SAME AS XOFF FOR XON FLOW C 


11 
ATOR F=REp=1980 1:80:12 EMRUR.puesRcITtysue.mans1 “2° (25) 


FOR wide AND SEND IT TO THE PORT 
ONTRO 


#*A<R1,R3> 


, 3; SAVE REGISTERS 
aT VSC HOFF RS : USE X 
aTTY$SV"S 
UCcB$a Vet Xer TECA RE) 30$_ ; SKIP IF NOT TYPEAHEAD FULL 
aTsy VeMOSTSYNG UCB, Devbere PEND(RS),10$ ; XOFF CORRECT 
ucosa " STATE(RS),20$ ; SKIP IF PASSALL MODE 
at ¥$C_BELL : USE BELL RACTE 
(BSL TT_PORT(RS) RI : GET THE ADDRESS OF THE PORT VECTOR 
aot OFF F(R1) : 
M<R aT R 
#TTSM_HOSTSYNC! TTSM_READSYN 
UCBSL~DEVDEPEND(R5) ; NOgT OR READ SYNC TERMINAL? 
10$ : YES THEN OUTPUT THE CHARACTER 
20$ : NO, SKIP OUTPUT 
oyeale st od 
aTTYSC END XON 


#TTSM CANS ye TC !TTSN _neapsyne = 
cBsL_ DEVDEPEND(R5)- =; HOST OR READ SYNC TERMINAL? 


; SKIP U 
UCBs TT PORT(RS) , RI: tet THE ADDRESS OF THE PORT VECTOR 
208 + GD BACK AND RETURN 
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AEB .SBTTL MODEM ROUTINES 
AEB 2121; MODEM CONTROL DATA AREA 
AEB 1 ; 
AEB 01 
AEB 2106 
AEB 2105 TTSL_DIALUP:: ;ROOT OF MODEM TIMER CRB LIST 
00000000 OAEB 21 $ LONG 0 
AEF 2107 TT$W _REFCNT: 
0000 OAEF 21 8 WORD 0 :COUNT OF TIMERS IN USE 
AF1 2129 TTSW_TIMCTRL: 
0000 OAF1 21 p .WORD 0 SFLAG WORD 
AFS 21 
AF 1 ; 
AF3 21 .ALIGN QUAD 
AF 134 TTSTIMQUENT: i TIMER QUE ENTRY FOR MODEM TIMER 
00000828 OAF8 2135 .BLKB TOES. LENGTH LLOCATE BLOCK HERE 
1 $ STO_TQE TOESW SIZE, WORD, TOESC -LENGTH rrstinGUe 
1 STO-TQE TOQESB-TYPE DYNSC~ TOE, TTSTIMQUENT 

138 STO-TOQE TOESB “ROTYPE. Ovfe. TOESC GE STTETIRQUENT 

2140 
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TTDRVR.BUGSRCITTYSUB.MAR; 1 0) 


ne 
aa 
+ 


TRANSITION_NOCHECK = process transition element without th he fen STATU bit cc heck 
TR - ROCESS TRANSITION ELEMENTS ON MODEM/ ak : ave EV VENT 
PORT_TRANSITION = PROCESSES PORT CALLS THEN FALLS INTO TRAN 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS CALLED ON ALL MODEM TRANSITIONS SUCH AS MODEM SIGNAL 1h Rance. 
TIMER EXPIRATIONS AND CONTROL yA Mara P AE ELEMENTS CONTAINED IN THE 

STATE TABLE ASSOCIATED WITH THE CURRENT stare ARE SCANNED. if A MATCH IS 

0 N ANEW STATE IS DECLARED, ete N DECLARING A NEW STATE, 

OUTPUT MODEM SIGNALS MAY BE SET OR R TIMERS MAY BE STARTED OR 

CANCELLED AND ACTION ROUTINES MAY BE. INVOKED. 


PORT Se yt wee 
THIS ROUTINE PRE~PROCESSES THE wht FROM THE PORT DRIVERS 
SCREEN OUT CALLS TO MODEM INIT WITH REF=COUNT NON-ZERO AND CHANGE 
THOSE CALLS INTO SHUTDOWN CALLS. ALL INPUTS AND OUTPUTS ARE THE SAME 


INPUTS: 


Ri = TRANSITION TYPE 
R2 = TYPE SPECIFIC ARGUMENT 

DATASET = NEW RCV MODEM MASK 
RS = UCB ADDRESS 


OUTPUTS: 
RO-R DESTROYED 
BorT ~TRANSITION: ; 
51 00 01 cmp MODERSC INIT,R1 : IS THIS AN {Nl 11? 
OF 1 BNEG SITION 3; NO THEN DON'T INTERP 
53 o0oco cs oD MOVL veese TT_LOGUCB(RS) ,R3 : GET THE LOGICAL UCB ABDRESS 
08 1 BEQL TRANSITION 3 NO LOGICAL THEN EXIT 
SCA 8 TSTW UCBsu REFC(R3) 3 ANY REFCOUNT IN LOGIC 
03 «13 BEQL NSITION 3; NO THEN INIT THE LI 
51 01 OA cauanne PRODERSC. SHUTDUN, R1 3 ELSE SHUT IT DOWN 
TSTW UCBSW_TT_DS $T(R5) 3 IS MODEM STATE IDLE? 
BNEQ TRANST TION ROC CHECK ; NO, SO ALLOW CLEANUP TO FINISH 
4744 a5 15 V_MODEM,UCBSL_DEVDEPEND(RS).END;00N'T BOTHER IF NOT MODEM 


PEN 9 ONO MEIN 9 ODA NE WWIN OOD NAN EW O ODNOAUE WP 


OOD CD GD GD SI INSIDE DDD DEDEDE DD TTI Be 


Bac 
TRANSITION NOCHECK: 
00000078 ' EF MOVAL STATE INIT+MODEMSC_ST_LENGTH,RS ;ROOT OF STATE TABLE + OFFSET 


So 

— 

™ 

oa 

wn om 
WA 

oso m—W 
mm —nw 


54 9126 f ; + se ucesy TT_DS_ST(RS5) ,R4 
INIT: CASE R1, TYPE=B,<INIT,SHUTDWN, TRAN_LOOP, TRAN_LOOP, TRAN_LOOP> 
von BE BR REP i ome ey St a 
é 31 38 sarreues DECLARE _STATE : INIT MODEM CONTROL 
QOOO000BE'8F D0 4 MOVL #SHUTDOWN-STATE_INIT,R2 :DECLARE SHUTDOWN STATE 
4 31 2195 BRW DECLARE _STATE ; TRANSITION TO NEW STATE 
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B78 2196 TRAN_LOOP: 
53 640A a8 1 ; MOVZBL (R4),R3 GET TRANSITION ELEMENT TYPE 
E 1 CASE 3, TYPE=B,<DATASET, TIME, END, DIALTYPE D211, NOMODEM> 
BBE 199 :DISPATCH TO TRANSITION SERVICE 
: END: ;LAST TRANSITION FOR STATE 
05 08 E RSB 
BBF 
BSF 5 TIME: TIMEOUT TRANSITION ELEMENT TYPE 
51 04 91 OBSF $ CMPB 0s HMODEMS$C_TIMER,R1 ; TIMEOUT TRANSITION CALL 
£ i : ¢ BNEQ NEXT_TRAR 3NO PROCESS NEXT ELEMENT 
0062 B94 : BRW NEW_STATE SDECLARE NEW STATE 
B97 2210 ; 
897 19 BATASET: sDATASET TRANSITION ELEMENT TYPE 
51 3 91 0897 1¢ CMPB ss HMODEMSC_DATASET,R1 ;MODEM INTERRUPT? 
fs BSA 201 BNEQ : DONT UPDATE STATUS 
0124 ¢5 52 9 BxC 1 ios MOVB R2,UCB$B_TT_DS_RCV(RS) [UPDATE STATUS 
52 0134 CS 9A OBAI 18 "  MOVZBL UCB$B_TT_DS_RCV(RS) .R2 :GET CURRENT STATUS 
5 As i é 7 TST8 , DEMSB_TRAR_ONMASK(R4) iMASK ACTIVE 
53 05 A4 92 OBAB 2219 MCOMB DEMSB_TRAN_ONMASK(R4) ,R3 [GET COMPLEMENT OF MASK 
2 53 BA BAF 0 BICB JR SISOLATE BITS OF INTEREST 
52° 05 Ad ¢ BE 1 XORB MODEMSB_TRAN_ONMASK(R4) ,R2 [TEST IF BOTH ON 
13 BE : haat BEQL 208 YES 
52. 0124 €5 9A Ope 4 ~ ~—s MOVZBL - UCB$B_TT_DS_RCV(RS),R2 :GET CURRENT STATUS 
D 5 TSTB | MODEMSB_TRAR_OFFMASK(R4) :MASK ACTIVE 
c 6 BEQL NEXT TRAN NO 
¢ BITS § MODEASB_TRAN_OFFMASK(R4) ,R2 [TEST SIGNALS OFF CASE 
C6 : BEQL 208 TYES OFF, DECLARE NEW STATE 
¢ BRW NEXT_TRAN 
cB 0 208: 
cB : BRW NEW_STATE sENTER NEW STATE 
CE 
CE 4 OIALTYPE: 
cE 5 BITB | MODEMSB_TRAN_ONMASK(R4),- :CHECK FOR MATCH 
BD 6 G*TTY$GB_DIACTYP 
B06 BEQL §§ NEXT_TRAN :NO MATCH 
B08 et BRW NEW_STATE TENTER NEW STATE 
BDB VL  UCBSL_CRB(RS).R1 7GET CRB ADDRESS 
BDF 226 CMPB «= CRBSB“TT_TYPE(R1) ,#DT$_D211 [1S CONTROLLER A 0211? 
BES 226 BNEQ NEXT TRAN 
BEG 4 BRW NEW_STATE 
BE 44 NOMODEM 
BEQ 3206 BBS #TTSV_MODEM,UCBSL_DEVDEPEND(RS) ,- 
BED 46 ;1F MODEM LINE, CONTINUE 
BEE 4 i BRW NEW_STATE SLINE NO LONGER MODEM 
# i BRB = NEXT_TRAN 
BF 2 
BFS 3352 NEXT_TRAN: ;LOOK AT NEXT TRANSITION ELEMENT 
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DECLARE_STATE = DECLARE NEW STATE 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO 
OR CANCELLING TIMERS 
AND INVOKING ACTION ROUT 
INPUTS: 


Re = NEW STATE BEING DECLARED 
R> = UCB ADDRESS 


OUTPUTS: 
RO-R4 DESTROYED 


EW_STATE: 

MOVZWL MODEMSW_TRAN_NSTATE(R4) ,R2 

DECLARE_STATE: 
MOVW 


R2, 


UCB$W_TT_DS_ST(RS) 
MOVAL STATE_IN 


TT,R4 

ADDL = R2, RG 

MOVZWL MODEMSW_ST_TIMER(R4) ,R2 
BSBW MODEM. TIMER 

MOVZWL MODEMSB_ST_ONMASK(R4) ,R2 


BEQL 5$ 
BSBW TTYSDS_SET 


cVTWL MODEMSW_ST_ROUTINE(R4) ,R2 
MOVAL STATE_INIT,RO 

ADDL — RO, R2 

JSB (RO) 

BLBC ~=—_«aRO, 158 


MOVL § #MODEMSC_NULL,R1 
BRwW TRANSIT) ON_NOCHE CK 


uw 
Pe 
ee 


10$: 


AX/VMS Macro v04-00 Page $6 
TTDRVR.BUGSRCITTYSUB.MAR; 1 (50) 


DECLARE A NEW MODEM STATE. IT HANDLES STARTING 
ot ineee NEW MODEM OUTPUT SIGNALS (VIA THE PORT) 


SET NEW STATE 
ROOT OF STATE TABLE 


POINT TO STATE ENTRY 

GET TIMER VALUE 

;SET NEW TIMER OR 

CANCEL PREVIOUS IF ZERO 

:GET SET SIGNAL MASK 

TURN LOW BYTE ON,HIGH BYTE OFF 


sNULL FIE 
:SET NEW MODEM SIGNAL (S) 
aa ROUTINE PRESENT? 


;COMPUTE ADDRESS OF ACTION ROUTINE 
: INVOKE ACTION ROUTINE 
SPECIAL TRANSITION TYPE IF ERROR 


DECLARE NULL TRANSITION IN NEW STAT 
:(T0 PROCESS ANY PRESET 
; MODEM SIGNALS) 


=—— wD 
ro ~< 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


st tt at ot tt 
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C 5 i+¢ TT 
¢ $: : MODEM_TIMER = SET/RESET MASTER MODEM TIMER ROUTINE iT" 
C ; FUNCTIONAL DESCRIPTION: 1 
¢ : THIS ROUTINE STARTS 798 CANCELS A MODEM PROTECOL TIMER FOR A LINE. TT 
C 11 ; oe I QE IS USED TO TIME ALL ACTIVE LINES. THE TQE ONLY REMAINS ACTIVE TT 
C36 1 3 $0 LONG R AT LEA oF ONE TIMER IS NEEDED. SUBSEQUENT TIMERS USE THE TT 
C36 2315 ; SANE TOE. WHEN ALL CURRENT TIMERS EXPIRE THE TQE IS REMOVED FROM TT 
C 6 14 ; THE SYSTEM TIMER QUEUE UNTIL NEEDED AGAIN. TT 
¢ 15 ; SINCE TIMERS ARE ONLY NEEDED D DURING TRANSITIONS, THIS IS A LOW OVERHEAD TT 
¢ 6 1 : ACTIVITY. TT 
C 7; TT 
¢ 18 : INPUTS: 11) 
¢ 0; R2 = NEW TIMEOUT VALUE OR 0 TO CANCEL ANY OUTSTANDING TT 
c 6 1; RS = UCB ADDRESS TT 
C 5 : OUTPUTS: 
¢ 6 4 ; RO-R3 DESTROYED 
C36 : MODEM_TIMER: 
54 pd OC é PUSHL R4 
54 26 AS 00 C 8 MOVL UCBSL_CRB(RS) RG 7CRB ADDRESS 
3¢ D5 Oc3c 9 TSTL oR > CANCEL? 
13 C3e 0 BEQL $TIMER_CANCEL YES 
C40 ; NEED TO INIT TIMER FOR LINE 
0128 cS) «BS (C64 TST CBSW_TT_DS_TIM(RS) : ANY CURRENT TIMER ACTIVE 
07 12 044 4 BNEG 5 YES THEN JUST CHANGE [HE TIME 
FAG (9% C46 5 INCB CRBSB_TT_TIMREFC(R4) : Bua THE REF COUNT IN THE CRB 
FEA2 gf B6 0C4 } InNCW TT$w_REFCNT UMP IN use COUNTER 
0128 ¢5) =652)—é«@wBO 4p 5$: MOVW R2,UCB$W_TT_DS_TIM(RS) ;SET rink? TO WA 
FESA CF 36001) AA 38 3 BICW #TIMCTRLSM_CANCEL,TTSW_TIMCTRL :RESET ANY CANCEL REQUEST 
FE9S CF 01 i C3? 40 BBC #TIMCTRLSVIACTIVE, TTSW-TIMCTRL,10$ ; TIMER NOT CURRENTLY ACTIVE 
72, «1 3p 41 BRB TIMER_END 
CSF 4g 108: ;NEED TO RESTART TIMER 
55 DD OCSF 234 PUSHL RS : SAVE UCB ADDRESS 
55 FESS CF DE C61 2344 MOVAL TTSTIMQUENT.R 
0B A (66 2345 mOVB PL MOUEUEAST, TOESB_ROTYPE(RS) :SET UP FORK IPL 
00000672" EF oF OC 46 PUSHAB es SRETURN ADDRESS 
1 c? 4 BRB $ TQUEUE FORK 
5 BEDO 0C7 rt: 208: POPL RS ;RESTORE UCB ADDRESS 
FE77 CF é AB 0C7 50 GISW #TIMCTRLSM_ACTIVE.TTSe_TIMCTRL :SHOW TIMER ACTIVE 
1 coh os BRB TIMER_END 
‘GF 1 7 wa: on G*EX $7 ORK 
tae . ; ; 56 DSBINT ap ‘ YNCH sINTERLOCK TO ENTER TIMER ENTRY 
ocps" cf 9E C : 5 MOVAB isrinen” TOESL_FPC(RS) [SET TIMEOUT ROUTINE ADDRESS 
004c4a4d 8 i DO C E 2356 MOVL #5000000, TQES@_DELTA(RS) ;SET REPEAT AMOUNT (SOOMS) 
(96 2357 MOVB #TQESC SSREPT,TOESB_ROTYPE(RS) ;SET REPEATING TYPE 
09p00000"S "GF 4 COA 3335 MOVO  G*EXESGQ_SYSTIME, Hi >CURRENT SYSTEM TIME 


MOS so 


1 
00000000 ' GF 


FE29 CF 


FE20 CF 01 


ze. 


0 
004(4840 } 


ONIN 


0128 Og 
0128 C 
fF Ae 


FE25 CF 
05 


? 
0 TIMER_END: 
1 POPL 


PAAAIAAAAAAIAAAAAAAAAOOAOCOAAOOA 
eR RARR AR ee 


UE @ BOOOOM POT 
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2359 ADDL  #5000000,R0 ; TIMEOUT DUE IN SOOMS 
ADWC 3 #0, RI ; 
é JSB G*EXESINSTIMO ‘INS ERT IN TIMER QUEUE 
ENBINT TRESTORE IPL 


Tse cosy, TT_DS_TIM(RS) ; IS THE TIMER 

BEQL t ACTIVE NO THEN EXIT 

§ CLRW © UCBSw_TT_Ds_TIM(RS) TRESET TO INDICATE IDLE 
DECB Ue $B°TT -Fimrerc eka) t DECREMENT THE REF COUNTS 

0 208 DECW TT$wW_REFCNT 

! $ 

: TST 1184 REFCNT ZANY ACTIVE TIMERS? 
BNEQ TIMER_E SYES 

75 :NO ACTIVE TIMERS SO, 

id: [TIMER NEEDS TO BE CANCELLED 


B1Sw #TIMCTRLSM_CANCEL,TTSW_TIMCTRE ;REQUEST TIMER CANCEL 


RG 


¢ RSB 
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CD 5 344 
CD $ : TISTIMER - TIMER INTERRUPT ROUTINE 
cD ; FUNCTIONAL DESCRIPTION: 
CD ; THIS ROUTINE IS INVOKED UPON THE EXPIRATION OF THE MODEM PROTECOL TOE. 
CD 91 ; IT COUNTS DOWN ALL ACTIVE TIMERS AND INVOKES THE TRANSITIO 
CD 92 ; ROUTINE FOR ANY LINES THAT HAVE TIMED OUT. THE ROUTINE REQUEUES THE 
CD 93 ; TQE INTO THE SYSTEM TIMER QUEUE UNLESS ALL ACTIVE TIMERS HAVE 
C05 94 ; EXPIRED. 
CD 95; 
CD % : INPUTS: 
CD 97 ; 
CD 98 ; RS =  TQE ADDRESS 
CD5 2400 : OUTPUTS: 
O¢D5 401 : RO-R4 DESTROYED 
CD54 g TTSTIMER: 
20 BB OCDS 2404 Pus #*M<R5> 
54 FEIO CF ODE C07 405 a MOVAL  TTS$L_DIALUP,R4 7GET ROOT OF CRB LIST 
54 66 00 CDC 409 "MOVE = (RG) , RG :GET NEXT CRB ADDRESS 
52 13 «OCDF 408 BEQL “PROCESS LINES FOR CKB 
0B AS) «=95—s«OCE1 «2409 TSTB = CRBSB_TT_TIMREFC=CRBSL_TT_MODEM(R4); ANY TIMERS ON THIS LINE? 
F613 ced 410 BEQL 108 : NO THEN EXIT 
OceG 4g : TIMERS ARE ACTIVE ON THIS CONTROLER 
54 DD OES 1) ie PUSHL R4 7SAVE TIMER THREAD 
6 OCOAté«CD Oces 415 SUBL  #CRBSL_TT_MODEM,R4 7GET ACTUAL CRB ADDRESS 
OCEB 2417 sPROCESS LINES WITH ACTIVE TIMERS 
a Ocer t19 MOVIUL [DBSUTUNITSCRSS CR te ee fT ESS OF Oe mits 
52 BS ats 4 g es a: oe. : ; ON THIS CONTROLER (ZERO BASED) 
4 : $L_UCBLST(R3)CR23,R5 :GET UCB FOR THAT LINE 
otto a | 8 OCFA 4 BeaL 428 mutt : ; NO UNIT THEN GO ON TO THE NEXT 
ocr 426 DSBINT UCBS$B_DIPL(RS) SINTERLOCK WITH DEVICE INTERRUPTS 
0128 cS” BS 003 425 TSTW YCBSW_TT_DS_TIM(RS) : DOES THIS UNIT HAVE THE TIMER 
0C 12 OD 4 6 BNEQ $ : YES THEN HANDLE IT 
652 Fe Opor 54 338: SOBGE 2,208 Bed Bo peedietesenct 
3 BEDO p F 4 40$: POPL Rc : RESTORE TIMER THREAD 
D1 4 ; 
i ? ¢ 3 DECREMENT/FIRE TIMER REQUESTS 
1 06 D15 2434 50S:  mOVB #MODEMSC_TIMER,RI ;SET TRANSITION TYPE 
3128 3 e? D1B 2435 DECW ycesu_TT_0S_TIA(RS) :COUNT DOWN LINE 
FOCD ee aS re 4 $ tite TT$W_REFCNT ‘weticmebed 
. 1 D $ 4 : PUSHR #*M<R2.R3,R4> : SAVE SOME REGISTERS 
Fels ¥ i 439 BSB TRANS ft me INVOKE TRANSITION ROUTINE 
1F AG Hy D29 2441 DECW  CRBSB_fT_fIMREFC(R4) : DECREMENT THE REF COUNT 
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DB «12 OD2C tg BNEQ 30$ ; CONTINUE 
) 5 4 ENBINT ; oh a setenyets IF 
oc 1 D 44 BRB 408% : NO MORE TIMERS ON THIS 
D 45 é edb a AND MOVE TO THE NEXT 
. og ; CONTROLER 
. $3 : CHECK TO SEE IF WE ARE TO CANCEL THE TIMER OR RE-ENABLE IT 
20. BA OD 50 60$:  POPR #*M<RS> 
D3 51 DSBINT #31 : INTERLOCK 
FDB1 CF 00 Fe po 78 52 BBC #TIMCTRLSV_CANCEL,TTSW_TIMCTRL, 76$; DONT CANCEL TIMER 
03 AA Boe 53 BICW ost rec rou POT ENR) SAE ALOR, CANCEL >= 
FDAB CF ak 54 $ g te be CANCEL +TIMER aetiye BITS 
ratte | DE Roce 55 MOVAL G-EXESAL "TOENOREPT, RS ; Point R5 to no-repeat TQE 
0D4D 3$ ; thus ending timer thread. 
0D4D 57 70$: 
pose 3 ENBINT 
D50 5 RSB 
0D51 60 
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DI 4 ; p++ 
p 4 33 MODEMSLINK_CRB 
D8 465 3 FUNCTIONAL DESCRIPTION: 
te te9 : THis ROUTINE IS USED TO LINK THE ASSOCIATED CRB OF A UCB 
p51 468 : REQUIRING MODEM CONTROL INTO THE MODEM PROTECOL TIMER QUEUE. 
p51 4g ; NOTE THAT THIS QUEUE IS SEPERATE FROM THE DZ-11 SPECIFIC 
D51 26 9; ; MODEM TRANSITION POLLING QUEUE. 
D51 2471 ; 
p51 ae + INPUTS: 
D>! 473 ; 
D51 247% ; RS = UCB ADDRRESS 
0051 2475 ; 
9031 476 + OUTPUTS 
D51 2477 : RO-R4 DESTROYED 
0051 2478 ;-- 
D51 2479 ; 
D5! 480 : CHECK IF CRB NEEDS INSERTION ON MODEM TIMER GUEUE 
091 48¢ MODEMSL INK_CRB: 
54 2405 00 0051 tbe OVL  UCBSL_CRB(RS),R4 : GET CRB ADDRESS 
51 FD92 CF. CODE 995 485 MOVAL TT$L_BIALUP,RI > ADDRESS OF LIST HEAD 
53 1406 DE ODSA 24 ; MOVA! crest. TT_MODEM(R4) ,R3 + GET CRB THREAD 
52 51 +00 D> ‘ ine MOVL R1,R 
53 62 01 0061 rt: CMPL (R2),R3 ; cre ON LIST 
0B 13 0D64 2490 BEQL 208 : 
52 62 00 0066 2491 MOVL (R2) ,R2 3 POINT TO NEXT 
F6 «12 «(0D69 49¢ BNEQ 10$ : IF NOT END LOCK | AGAIN 
63 61 DO 0D6B 249 MOVL _—(R1), (R3) + LINK AT LIST H 
61 53 00 D6 49% ion MOVL —R3, (R1) 
FDOE 30 naa 496 BSBW = TTYSSET_MODEM ; INVOKE ANY PORT SPECIFIC SETUP 
an 
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D7 9 «sbttl MODEM STATE TABLES 
D p++ 3 
$ ¢ ; MODEM CONTROL STATE TABLES o 
of ; 3; FUNCTIONAL DESCRIPTION: 
D7 § 3 THIS TABLE CONTAINS STATE ENTRIES. EACH STATE CORRESPONDS TO 
D7 ; A MODEM PROTECOL STATE. EACH STATE ENTRY CONSISTS OF A MODEM SIGNAL 
D7 8 ; MASK TO BE SET ON STATE ENTRY, AN INITIAL TIMER VALUE TO BE STARTED ON 
D7 ; STATE ENTRY AND AN OPTIONAL ACTION ROUTINE. 
D7 10 ; FOLLOWING THE STATE ENTRY ARE TRANSITION ELEMENTS. ON ANY 
D7 11 ; TRANSITION : TIMEOUT, MODEM irene OR PROGRAM DECLARED, EACH 
D7 12 ; TRANSITION ELEMENT I1§ PROCESSED SEQUENTIALLY. THE LAST TRANSITION ELEMENT 
D7 15 ; IS ALWAYS AN END TRANSITION ELEMENT WHICH SIGNALS THA 
D7 514 ; NO TRANSITION OCCURS IF IT IS PROCESSED. OTHER TRANSITION ELEMENT TYPES 
D7 515 ; MAKE CONDITIONAL TESTS AND MAY DECLARE A NEW STATE IF THE APPROPRIATE 
te 218 ; CONDITIONS HOLD TRUE. 
D7 17 j-- 
0D7 218 
gore 51 
p75 520 ; MODEM STATE MACRO DEFINITIONS 
0075 2521 ; 
pore 5 § 
0D7 5 emacro state name,onmask=0,offmask=0,timer,routine 
Bore 524 name: 
ore 525 «byte  onmask 
0D7 5 $ “byte of fmask 
0075 25 i n timer 
0D75 2528 -word <timer*2> 
0075 2529 -if_false 
pore 530 .word 
D75 2531 .endc 
pore : § if nb routine 
0D7 -word routine-state_init 
0075 2534 -if_false 
0075 2535 .wor 
0D75 25 § -endc 
0075 33 -endm state 
D7 5 § emacro tran type, nstate,onmask=0,of fmask=0 
Bore 540 wif idn type.en 
D7 4! “byte modem$c_tran_end 
d75 rT: i false 3m 
ore 7” -byte modensc tran. type’ .0 PA 
D7 44 «word nstate-State_init 7” 
44) 545 byte offmas 7” 
p7 338 -byte  onmask A, 
0D75 254 -endc A] 
Bore 238 .endm tran 3H 
D75 254 be 
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D7 

D7 STATE_INIT: 

BS 

D? é + LINE NOT UNDER MODEM CONTROL 

D7 : : STATE OFF 

7B é TRAN END 

Bre 5880 

bee $6 : INITIAL MODEM STATE 

D7 88 , STATE IDLE, OF FMASK=<TT$M_DS_DTR!TTS$M_DS_RTS>, TIMER=2 
D ; 564 TRAN DIALTYPE ,ONMASK=02,NSTATE=RINGQAIT 

D 565 TRAN  TIME,NSTATE=WAIT 

DBE 366 TRAN — END 

BBE S868 ; 

DBF 369 + WAIT FOR RING PRIOR TO SETTING DTR 

+ ett A 

3 7 378 STATE RINGWAIT 

0095 257 TRAN DATASET, ONMASK=<TT$M_DS_RING> ,NSTATE=INIT2 

D9B 257% TRAN —_—END 

Doe 587% 

D9C 358 : WAIT FOR DTR AND RTS 

44: 278 3; (IF 02-11 GO DO SUBSET SUPPORT) 

D9C 2580 ° STATE WAIT, ONMASK=<TTS$M_DS_DTR!TTSM_DS_RTS> 

Dae 581 TRAN 0211.NSTATE=DZ2WAIT 

DAB 25 é TRAN DATASET ,ONMASK=TTS$M_DS_DSR,NSTATE=INIT1 

DAE 25 TRAN END 

DAE 5988S ; 
ODAF H $ > DZ-11 SUBSET SUPPORT 

DAF 587 ; WAIT FOR CARRIER OR RING 

DAF § ; STATE DZWAIT 

DBS 0 TRAN DATASET, ONMASK=<TTS$M_DS_CARRIER>,NSTATE=TRANSMIT0 
D 91 TRAN DATASET. ONMASK=<TTS$M_DSRING> ,NSTATE=INIT2 

DC 3 TRAN END 

gs SE 

oC $3 $ DELAY 

pc 3 ‘ STATE INIT1,TIMER=1 

pc 38 RAN =‘ TIME ,NSTATE=INIT2 

DCE TRAN END 

Bee S001; 

DCF 26 ; + START TIMER AND WAIT FOR CTS AND CARRIER 

DCE : IF TIMER EXPIRES, SHUTDOWN LINE 

DCF 5° STATE INI 12 ONMASK=<TTSH DS_DTR!TTSM_DS_RTS>, TIMER=30 
DDS 6 ; TRAN IME ,NSTATE=SHUTDOON 

DDB TRAN DATASET ONMASK=<TTSM_DS_CTS! 1TSM_DS_CARRIER! TT$M_DS_DSR>,- 
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poe NSTATE=TRANSMI TO 

DE TRAN — END 

DE 11; 

DE I ; TRANSMITO STATE (SIGNAL CONNECT AND ALLOW TIME TO ASSIGN CHANNELS) 
DE 14 STATE TRANSHITO, ROU ROUT INEs OGIN, TIMER=30 

DE 15 TRAN iTEhp DS’ DSR, NSTATE=SHUTDOWN 

DEE 1 TRAN DATASE! OFEMASK=TT DS“CARRIER, NSTATESTRANSMIT1 

DF 1 TRAN TIRE, NSTATE=TRANSMIT~ 

DFA 1 TRAN — END 

FB é : NORMAL TRANSMIT STATE 

DFB 26 : " STATE TRANSMIT, ROUTINE=VERIFY ; ROUTINE VERIFY WILL SHUTDOWN IF REFC=0 
EO! 6 TRAN DATASET, OF FMASK=TT$M_DS_ bsk, NSTATE=SHUTDOWN 

£07 2626 TRAN DATASET, OF FMASK=TTSM-DS ~CARAI ER,NSTATE=TRANSMIT1 

EOD 625 TRAN DATASET, OF FMASK=TTSM"DS_CTS, NSTATESCTSLOW 

E13 26 : TRAN — END 

td 

Oe 14 6 e : LOSS OF CARRIER DETECTED 
0614 5631 ° STATE TRANSAT» si ineR=2 ROUT NE=CTSHIGH 
OEIA 26 j TRAN  ODIALTYP { ,NSTATE=SHUTDOWN 

E20 26 TRAN ——*TIME NSTATHeSHUTDOGN 

E26 2634 TRAN _—ODATASET, OF FMASK=T TSM _DS_DSR,NSTATE=SHUTDOWN 

E 635 TRAN DATASET -ONMASK=<TTSM~DS~CARRIER! TTSM_DS_CTS>,NSTATE=TRANSMIT 
OE 6 $ TRAN END 

ERs 56 

. 639 : DELAY PRIOR TO COMPLETE SHUTDOWN 

E 641° STATE SHUTDOWN, TIMER=1 ,OF FMASK=TT$SM_DS_DTR, ROUT INE=LOGOUT 
E3 64g TRAN TIME,NSTATE=SHUTI 

ESF 264 TRAN END 

ih ius 

E4 646 > COMPLETE SHUTDOWN 

E 64 : AND THEN REINIT 

£4 rat: y STATE SHUT1,TIMER=2 

E46 26 TRAN NOMODEM NSTATE=OFF 

£4 6 TRAN TIRE NSTAT 

E TRAN TASET, OF FMASKET TSM. DS_DSR,NSTATE=1DLE 

: 6 TRAN PND 

E ‘ + CTSLOW 

: ; 36 ; STOP SENDING DATA AND WAIT FOR CTS TO GO HIGH 

E39 698 : STATE CTSLOW, ROUTINE=LOSTCTS 

ESF 265 TRAN DATASET, ONMASK=TTSM_DS CTS NSTATE= TRANSMIT 

£65 60 TRAN DATASET. OF FMASK=TTSA_DS_DSR,NST HUT DOWN 

E 6 TRAN DATASET. OF FMASK=TTSM_DS “CARRIER NSTATES TRANSMIT1 

Eo $8 sar! crm 
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3 THESE ROUTINES ACT AS ACTION ROUTINES FOR MODEM CONNECTION 
: AND DISCONECTION. ON CONNECTION THE REMOTE BIT IS SET. 
: ON DISCONNECT A FONTROL Y AST IS FIRED WITH HANGUP STATUS 
: ‘Tab AL THE CLI. ALSO ANY OUTSTANDING ATTENTION ASTS ARE 
LOGIN: 
MOVL UCBSL_TT_LOGUCB(RS) ,R1 ; GET LUCB ADDRESS 
BISL #TTSM-REMOTE ,UCBSL_DEVDEPEND (RS): UPDATE CHARACTERISTIC 
BISL § #TTSM_REMOTE,UCBSL_DEVDEPEND(R1) 
8SBB CTSHIGH 3; SAY CTS IS HIGH 
BRB ACTION_EXIT 
LOGOUT: 
BSBW CTSHIGH 
MOVL #TTY$V_FD_DISCONNECT,R4 3 SIGNAL HANGUP CONDITION 
BSBW TTYSCRE_FORK 
BRB ACTION_EXIT 
LOSTCTS: 
BISL #TTYSM_ST_CTSLOW,UCBSQ_TT_STATE+4(R5); SAY CTS IS LOW 
BSBW TTYSSTOP 
BRB ACTION_EXIT 
CTSHIGH: 
BBSC #TTYS$V_ST_CTSLOW,UCBSQ_TT_STATE+4(R5),10$; SAY CTS IS HIGH 
BRW TTYSRESUME 
10$: BSBW TTYSRESUME 
BSBW TTYSSTARTOUTPUT 
ACTION_EXIT: 
ney cet #SS$_NORMAL ,RO 


$ VERIFY THAT UNIT HAS CHANNELS ASSIGNED 


VERIFY: 
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CTSHIGH ; SAY CTS IS HIGH 
UCBSL_TT_LOGUCB(RS) ,R1 : GET LUCB ADDRESS 

UCBSW>REFC(R1) ; CHANNELS ASSIGNED 

ACTIOR EXIT ; YES, RETURN SUCCESS 

R ; SIGNAL FAILURE 
#MODEMSC_SHUTDWN,R1 ; AND RETURN TRANSITION CODE IN R1 
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EC ar .SBTTL CLASS MODEM_DIS - CLASS SERVICE TO FORCE MODEM SHUTDOWN 
sf 4 a -SBTTL TTYSCCASS_DISCONNECT = CLASS SERVICE TO SIGNAL KANGUP CONDITION 
EC af : CLASS_MODEM_DIS 
EC 18 : FUNCTION: 
EC? , p ; WILL FORCE MODEM SIGNALS TO HANGUP THE LINE AND SIGNAL HANGUP STATUS 
Eco f : ; INPUTS: 
3 f 4 ; RS = UCB ADDRESS 
EC? f 6 : OUTPUTS: 
EC9 27 8 ; R3,R4 DESTROYED 
ECS , 9: RO,R1,R2 ARE PRESERVED 
EC9 2731 CLASS_MODEM DIS:: ; INITIATE MODEM DISCONNECT 
07 BB OECS 27 : PUSAR #*M<RO,R1,R2> 
51 01 20 ECB 27 MOVL  #MODEM$C_SHUTDWN,R1 : SIGNAL RESET 
FC6B ECE 734 BSBW TRANSITION : INVOKE MODEM TRANSITION ROUTINE 
07 BA ED1 2735 POPR #*M<RO,R1,R2> 
5 EDS , 6 RSB ; RESTORE THE REGISTERS AND RETURN 
Debs 4 8 ; GENERALIZED CLASS ROUTINE TO SIGNAL HANGUP STATUS 
ED4 2740 TTYSCLASS DISCONNECT:: 
07 BB OED4 2741 POSHR #*M<RO,R1,R2> 
54 00C0 C5 DO OED6 74g MOVL UCBSL_fT_LOGUCB(RS) ,R4 ; GET THE LOGICAL UCB TO CHECK 
5C AG) «BSS SCOEDB «274 TSTW YCBSU-REFC(R4) : THE REFCOUNT. 
05 12 OEDE 2744 BNEQ $ : IF CHANNELS THEN AST'S TO FIRE OR 
50 D4 OEEO 2745 CLRL = RO ; ALWAYS INDICATE HANGUP IF 
F850 39 EE 746 BSBW TTYSDISCONNECT ; NO CHANNELS THEN NONE OF THE ABOFE 
FFA EES 2747 5$ BSBW ; AND QUEUE FORK TO SIGNAL HANGUP ST 
07 BA dees 748 POPR #*M<RO,R1,R2> 
05 OEEA 274 RSB 


MDS sO 
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End of module 


: 


EEB 
EEB 
EEB 
EEB 


Ht -SBTTL End of module 
755 TT_END:: 
754 «END 
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3; End of Terminal Class Driver 
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temo ewraoe cece unen $ 


! Psect synopsis ! 


peewee ome once e >} 


PSECT name Allocation PSECT No. Attributes 

, Oe « 4 4448 ( = 0¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 

SABSS 00000000 ( m 1¢ #1.) NOPIC USR CON ABS LCL NOSHR' EXE RD 

$$$115_DRIVER QOOOOEEB ( 3819.) 2¢ 2.) NOPIC USR CON REL LEC L NOSHR' EXE RD 
eames Cee Benen owe sama gd 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 117 0:00:00.23 0:00:00.89 

Command processing 128 80: 0:00: 09:00:08. 1 

Pass 905 a “$3 0:01:11.78 

Ty ners arf SBRHE SS BRO 

Symbol table output 2 00:00:00: 37 0: 0:00:96 

Psect synopsis output 1 4 -02 00:00:00.13 

Cross-reference output 0 00: 8:98 -0y Ss Bd Bo 

Assembler run totals 1574 00:00:59.71 0:01:41.54 


The working set Limit was 2700 pages. 

212892 bytes (416 pages) of virtual memory were used to buffer the intermediate code, 

There were 170 pages of symbol table space allocated to hold 3038 non-local and 147 local symbols. 
2757 source Lines were read in Pass 1, orodyc ne 26 object records in Pass 2. 

65 pages of virtual memory sere used to define 62 macros. 


¢ ree wre semana mwa nsec nn ann ames + 


' Macro library statistics ! 


gemeerceecow ese nr emcee eaceeseas dy 


Macros defined 


Macro Library name 


~$255$DUA18: (SVS 08/318 .MLB: 1 28 
$255$DUA18: (CSYSLIBIJSTARLET.MLB; 3 11 
TOTALS ‘all libraries) 8g 


3384 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: TT) SUB/0BJ=0BJ$: TTYSUB MSRC$:TTYSUB/UPDATE=(BUG$:TTYSUB) +EXECMLS/LIB 
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TTDRVR.BUGSRCITTYSUB.MAR; 1 (52) 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC QUAD 
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